Program n;
var
m: array[1..10] of integer;
i,k: integer;
begin
writeln('Введите массив');
k:=0;
for i:=1 to 10 do begin
readln(m[i]);
if m[i]>0 then k:=k+1;
end;
writeln(k);
<span>end.
<em>Если я помогла,то отметь мой ответ лучшим,пожалуйста</em></span>
javascript:var Ф = н => n => (n == 1 ? н : 2 * F(n - 1) + 5 * n), F = Ф(5), G = Ф(4); alert(F(4) + F(5));
415.
var num1,num2,i:integer;
nums:array [1..10] of integer;
begin
i:=1;
while (i <= 10) begin
writeln('Vvedite ',i,' paru!');
write('num 1: ');readln(num1);
write('num 2: ');readln(num2);
if(num1 >= num2) then nums[i]:=num1 else nums[i]:=num2;
i:=i+1;
end;
i:=1;
while(i<=10)begin
write(nums[i],' ');
i:=i+1;
end;
end.
Проверено в PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
var
s: integer;
begin
for var i := 300 to 400 do
if (i mod 4) = 0 then
s := s + 1;
Print(s);
end.
Если масив заполнить нужно рандомно:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
mas[i]:=random(21)-20;
if mas[i] mod 2=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
Если масив заполняется с клавиатуры:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i] mod 2)=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.