1)массив из 10 элементов, вводим их с клавиатуры. вывести на экран все нечетные элементы, начиная с конца. вычислить их произведение 2)вывести на экран элементы массива, стоящие на четных местах, вычислить их сумму (вмассиве 20 элементов, заполнен случайными числами.) 3)массив из 20 элементов, заполнен случайными числами в диапазоне от -50 до 50 .вывести на экран, посчитать количество положительных чисел

131

278

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

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

dinkooo96

Информатика

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

Это 3 разные программы, все проверил на pascal abc.net, удачи) 1)uses crt; var a: array [1..10] of integer; i,n,t: integer; begin clrscr; n: =10; for i: =1 to n do begin read(a[i]); end; t: =1; for i: =n downto 1 do begin if a[i] mod 2=1 then begin write(a[i],' '); t: =t*a[i]; end; end; writeln('произведение нечетных элементов=',t); readln; end.2) uses crt; var a: array [1..20] of integer; i,n,t: integer; begin randomize; clrscr; n: =20; for i: =1 to n do begin a[i]: =random(10); write(a[i],' '); end; t: =0; for i: =1 to n do begin if i mod 2=1 then begin write(a[i],' '); t: =t+a[i]; end; end; writeln('сумма четных элементов=',t); readln; end.3)uses crt; var a: array [1..20] of integer; i,n,t: integer; begin randomize; clrscr; n: =20; for i: =1 to n do begin a[i]: =random(50)-random(50); write(a[i],' '); end; t: =0; for i: =1 to n do begin if a[i]> 0 then begin t: =t+1; end; end; writeln('кол-во положительных элементов=',t); readln; end.