Дан целочисленный массив из 12 элементов случайных целых чисел принадлежащих интервалу 10; 45 необходимо найти произведение элементов массива, кратных 5

135

320

Посмотреть ответы 2

Ответы на вопрос:

germandoter

Информатика

4,7(59 оценок)

Program z1; const n = 12; var a: array [1..n] of integer; i,s: integer; begin randomize; for i: =1 to n do begin a[i]: =random(45)+10; write (a[i],' '); end; s: =1; for i: =1 to n do if (a[i] mod 5 = 0) then s: =s*a[i]; writeln; writeln('произведение элементов массива, кратных 5 - ',s); end.

anitamirzikkk

Информатика

4,5(19 оценок)

На паскале uses crt; const n=3; m=3; var a: array [1..n,1..m] of integer; x,y,k: integer; begin k: =0; for x: =1 to n do begin for y: =1 to m do begin a[x,y]: =random(21)-10; if a[x,y] mod 2=1 then inc(k); write(a[x,y]: 4); end; writeln; end; writeln('количество неотрицательных нечетных элементов: ',k); end.