Составьте , , программу на языке паскаль.
по типу файла, приложенного из тетради.

:
массив задан датчиком случайных чисел на интервале [-30; 50]. найти сумму элементов массива, с четными номерами, произведение отрицательных элементов, количество нечётных элементов.

203

385

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

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

11111269

Информатика

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

ответ:

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

i,s,k: integer;

p: real;

begin

p: =1;

write('массив: ');

for i: =1 to 10 do

begin

a[i]: =random(81)-30;

write(a[i],' ');

if i mod 2 = 0 then s: =s+a[i];

if a[i] < 0 then p: =p*a[i];

if a[i] mod 2 < > 0 then k: =k+1;

end;

writeln;

writeln('сумма элементов массива, с четными номерами, равна ',s);

writeln('произведение отрицательных элементов равно ',p);

writeln('количество нечётных элементов равно ',k);

end.

кисел5467

Информатика

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

Int n; cin > > n; if (n > 180) cout < < "высокий"; else if (n > = 165) cout < < "нормальный"; else if (n < 140) cout < < "низкий"; какая-та неполная, ведь если рост будет больше 140, но меньше 165, то что программа должна вывести? она ничего не выведет поэтому предлагаю такое решение: int n; cin > > n; if (n > 180) cout < < "высокий"; else if (n < 140) cout < < "низкий"; else cout < < "нормальный"; или так: int n; cin > > n; cout < < (n > 180 ? "высокий" : (n < 140 ? "низкий" : "нормальный"));