Question

Помогите с заданиями, пожалуйста.

Answer 1

Ответ:

1 задача:

var a:array[1..5] of integer;

   i,s:integer;

begin

 for i:=1 to 5 do begin

   Read(a[i]);

   if a[i] mod 5 = 0 then

     s+=1;

 end;

 print(s);

end.

2 задача:

var a:array[1..8] of integer;

   i,s:integer;

begin

 for i:=1 to 5 do begin

   a[i]:=Random(-10,10);

 end;

 i:=1;

 while i<9 do begin

   if a[i]<0 then begin

     s+=1; end;

   i+=1;

 end;

 print(s);

end.

3 задача:

var a:array[1..8] of integer;

   i,s:integer;

begin

 for i:=1 to 5 do begin

   a[i]:=Random(-10,10);

 end;

 i:=1;

 while i<9 do begin

   if a[i]>0 then begin

     s+=a[i]; end;

   i+=1;

 end;

 print(s);

end.

Объяснение:

P.S. поставьте "лучший ответ", буду очень благодарен

P.S.S. если нужны дополнительные пояснения, могу предоставить