Регистрация
arrrtem
06.04.2022 12:12
Информатика
Есть ответ 👍

Паскаль составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. подсчитайте в этом массиве количество положительных и количество отрицательных значений.

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

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

nastia04102015
nastia04102015
4,7(13 оценок)
Var a: array[1..100] of integer; i,p,m: integer; begin p: =0; m: =0; for i: =1 to 100 do begin a[i]: =random(-20,20); if a[i]> 0 then p+=1 else m+=1; end; writeln('положительных - ',p,' отрицательных - ',m); end.
ninahatsanowsk
ninahatsanowsk
4,7(1 оценок)

program vld;

var

a,b : real;

begin

writeln('Введите 2 числа: ');

readln(a,b);

if a+b >35 then

 begin

 a := a *4;

 b := b * 4

 end

else

 begin

 a := a / 2;

b := b / 2;

end;

writeln(a);

writeln(b);

end.

Популярно: Информатика