Помогите пожалуйста,второе,третье и четвертое хотя бы

Помогите пожалуйста,второе,третье и четвертое хотя бы
Гость
Ответ(ы) на вопрос:
Гость
uses crt; var i,s:integer; a:array[1..5] of integer; begin randomize; s:=0; for i:=1 to 5 do begin a[i]:=random(15)-5; if a[i]>0 then s:=s+a[i]; end; writeln(s); readln; end. uses crt; var i,s:integer; a:array[1..7] of integer; begin s:=0; randomize; for i:=1 to 7 do begin a[i]:=random(15)-5; if ((a[i]>0) and (a[i] mod 2 = 0)) then inc(s); end; writeln(s); readln; end. uses crt; var i,s:integer; a:array[1..6] of integer; begin s:=1; randomize; for i:=1 to 6 do begin a[i]:=random(15)-5; if (a[i]>0) then s:=s*a[i]; end; writeln(s); readln; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы