Составьте программу, которая формирует массив, содержащий 16 случайных вещественных чисел, принадлежащих промежутку [-2;3] и подсчитывает сумму
5-9 класс
|
отрицательных чисел. Вывод в столбец с двумя десятичными знаками. Только Паскаль ABC!
Program Program1;
var
i:integer;
sum:real;
a:array [1..16] of real;
begin
randomize;
for i:=1 to 16 do
begin
a[i]:=-2 + Random * 5;
writeln('a[',i,']=',a[i]:0:2);
end;
sum:=0;
for i:=1 to 16 do
if a[i]<0 then sum:=sum+a[i];
writeln('Сумма отрицательных чисел равна',sum:0:2);
end.
Другие вопросы из категории
А) 321;
B) 333;
C) 111;
D) 243.
литра? 1-й перелив, 2-й перелив и до 7-ого перелива! ПОМОГИТЕ ПЛИЗ!!!!!!!! ОЧЕНЬ НАДО!!!!!!!!!!!!!!
Есть 2 кувшина емкостью 3 и 8 литров .Как с помощью только этих набрать из реки 7 литров
Читайте также
отрицательных чисел. Вывод в столбец с двумя десятичными знаками.
отрицательных чисел. Вывод в столбец с двумя десятичными знаками.
Составьте программу ,которая формирует массив ,содержащий 12 случайных вещественных чисел ,принадлежащих промежутку от [-10;30] , и подсчитывает произведение всех отрицательных чисел. Вывод в столбец с тремя десятичными знаками.
следующему правилу: к чётному числу прибавляет 3,а к нечётное умножает на 4
следующему правилу: четное число умножает на 5 ,а от нечетного отнимает 2.