Помогите по паскалю:
Ввести одномерный массив А из 10 элементов. Определить количество элементов кратных трём, и сделать блок-схему к нему
Ответы
Ответ дал:
0
//Pascal ABC.NET 3.1 сборка 1256
Var
ar:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin
readln(ar[i]);
if ar[i] mod 3=0 then k:=k+1;
end;
writeln(k);
end.
Var
ar:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin
readln(ar[i]);
if ar[i] mod 3=0 then k:=k+1;
end;
writeln(k);
end.
Приложения:
![](https://st.uroker.com/files/e03/e03814e8c52b74c515c41d653808970e.jpg)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад
9 лет назад