...........................................................
Const n=10;var a:array[1..n]of integer;i,k:integer;begink:=0;for i:=1 to n do begin read(a[i]);if ((a[i] mod 3=0) and (a[i] mod 5 >0)) then k:=k+1;end;write('таких чисел:',k);end.
Begin
for i:=1 to 10 do begin
srzn:=m[i];
end;
srzn:=srzn/100;
end.
1)циклы с условием
2)у цикла " повторить n раз" чётко заданное кол-во раз,а у цикл <span>" пока"
будет работать пока будет выполнятся условие
3)нужны,цикл - это и есть повтор каких-либо действий,пока не выполнится условие.
</span>