Var i,s:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=random(100);write(a[i],' ');
if (a[i] mod 3=0) and (a[i]>50) then s:=s+1;
end;
writeln('S=',S);
end.
Не менее должен содержать 256
Var
N,A,P:integer;
Begin
P:=1;
Write('N = ');Read(N);
For N:= 1 to N do
Begin
Read(A);
if A > 0 then P:=P*A
End;
WriteLn(P);
End.
А) if (x >= m) and (x <= n) then written('True') else Writeln('False');
b) if (c*c = a*a + b*b) then written('True') else writeln('False');
в)if (x > 0) and (y > 0) then written('True') else writeln('False');
––––––––––––––––––––––––––––––––––––––
Кнопка 'спасибо' чуть ниже
Цикл с заданным числом повторений (цикл-ДЛЯ)
<span>for <параметр> := <начальное значение> to <конечное значение> do <тело цикла<span>>
</span></span><span>После каждого выполнения цикла значение <</span>параметра> будет увеличиваться на 1.