Написать программу которая формирует массив из n элементов (максимальное количество элементов равно 20), значения элементов массива случайные целые числа от -10 до 25. программа должна: 1)выводить на экран сначала все элементы массива, стоящие на чётных местах, а затем - все элементы массива, стоящие на нечётных местах; 2)вывести на экран сумму всех элементов массива, значение которых кратны 3 или 5. 3)найти минимальное значение и максимальное значение элементов массива.

204

422

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

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

кросавиться11111

Информатика

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

Program x; const n = 20; var a: array [1..n] of integer; s,max,min: integer; begin randomize; for i: =1 to n do a[i]: = random(35) - 15; for i: =1 to n do if i mod 2 = 0 then write(a[i]); writeln; for i: =1 to n do if i mod 2 < > 0 then write(a[i]); writeln; s: =0; for i: = 1 to n do if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then s: = s+a[i]; writeln(s); max: = -15; min: = 20; for i: =1 to n do begin if a[i] > max then max: = a[i]; if a[i] < min then min: = a[i]; end; writeln(max, min); end.

Дженнет2001

Информатика

4,4(24 оценок)

Program test; var x,i,s, sa: real; begini: =1; read (x); s: =x; if x< > 0 then repeat begin read (x); s: =s+x; i: =i+1 end; until x< > 0; if s=0 then write ('первое число ноль'); if s< > 0 then begin sa: =s/i; writeln (sa) end; end.