Написать подпрограмму поиска количества K элементов массива, кратных 3. Для проверки подпрограммы создать драйвер, в котором

[- M]

Написать подпрограмму поиска количества K элементов массива, кратных 3. Для проверки подпрограммы создать драйвер, в котором выполнить ввод массива , замену всех элементов, кратных 3 на K. Массив распечатать.

Помогите исправить программу

Program zd1;
Type mas=array[1..10] of real;
Var
n,i:real;
K: real;
a:mas;
 
Procedure poisk(n1:integer;Var a1:mas; Var K1:real);
Var i1:integer;
 
begin 
k1:=0;
for i1:=1 to n1 do 
 
if a[i] mod 3=0 then
k1:=k1+1;
 
end;
 
begin {k}
writeln('введите число элементов');
readln(n);
for i:=1 to n do
begin
write('a[',i,']');
read(a[i]);
end;
 
poisk(n,a,k);
for i:=1 to n do
begin
if a[i] mod 3=0 then 
a[i]:=k1;
writeln(a[i]);
end;
end.

From Stilet: В следующий раз код оформляй по правилам. (Читать подробнее)

[Bugrimov]

Свой код обрамите тегами #

[newerow1989]

Переделал:

Type mas=array[1..10] of integer;
Var
a:mas;
i,n,K:integer;

Procedure poisk(n1:integer;Var a1:mas; Var K1:integer);
Var i:integer;
begin
k1:=0;
for i:=1 to n1 do

if a1[i] mod 3=0 then
k1:=k1+1;
 
end;

begin {k}
writeln('введите число элементов');
readln(n);
for i:=1 to n do
begin
write('a[',i,']');
readln(a[i]);
end;

poisk(n,a,k);
for i:=1 to n do
begin
if a[i] mod 3=0 then
a[i]:=k;
writeln(a[i]);
end;
readln;
end.

Сойдет?

[Bugrimov]

А что вы переделали, не по глазам.

[newerow1989]

Программа сразу не запустилась, переделал типы переменных, в процедуре poisk подправил, readln вместо read

[Stilet]

Для проверки подпрограммы создать драйвер

Классно преподы троллят...

[newerow1989]

Классно преподы троллят...

Это еще цветочки

В дальнейшем преподы будут задавать и не такое...

[Stilet]

В дальнейшем преподы будут задавать и не такое.

Хорошо что я уже в ВУЗ не попаду )