Составить на Паскале программу. которая при вводе с клавиатуры произвольного года выдает соответствующий этому году номер поколения ЭВМ

274

305

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

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

MaxKryaks

Информатика

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

Программа на языке паскаль. const n=30; var i, s0, k, a: integer; b: array [1..n] of integer; begin readln(a); s0: =0; k: =0; randomize; for i: =1 to n do begin b[i]: =random(20001)-10001; {чтобы диапазон случайных чисел был от -10000 до 10000} if (b[i]< 0) then s0: =s0+b[i]; if (b[i]> 0) and (b[i]< =a) then inc(k); end; if (s0< > 0) then writeln(s0, ' - сумма отрицательных чисел') else writeln('отрицательных чисел нет'); if (k< > 0) then writeln(k, ' - количество положительных чисел, не превосходящих числа а') else writeln('положительных чисел не превосходящих числа а, нет'); readln; end.