составить программу, которая формирует массив, содержащий 16 случайных вещественных чисел, принадлежащих промежутку [-2;3), и подсчитывает сумму
5-9 класс
|
отрицательных чисел. Вывод в столбец с двумя десятичными знаками.
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.
Другие вопросы из категории
шире,
Пять – руками помахать,
И за парту сесть опять
Этот алгоритм является....
А) линейным Б) Разветвляющийся В) Циклическим Г) Комбинированным
а) 0
б) 2
в) 3
г) 4
набирал её на компьютере и сохранял текст в одном из представлений Unicode, в котором каждый символ занимает 16 бит памяти? На одной странице помещается 64 строки, а в строке 64 символа.
Вот проверьте здесь гдето ошибка
program abc;
var a,b,c:integer;
begin;
write ('Длина равна=')
read(a);
write ('Ширина равна=')
read(b);
c:=a*b
write ('Площадь='c');
readln;
end.
Мне показало что в строке
Читайте также
отрицательных чисел. Вывод в столбец с двумя десятичными знаками. Только Паскаль ABC!
отрицательных чисел. Вывод в столбец с двумя десятичными знаками.
Составьте программу ,которая формирует массив ,содержащий 12 случайных вещественных чисел ,принадлежащих промежутку от [-10;30] , и подсчитывает произведение всех отрицательных чисел. Вывод в столбец с тремя десятичными знаками.
следующему правилу: к чётному числу прибавляет 3,а к нечётное умножает на 4
следующему правилу: четное число умножает на 5 ,а от нечетного отнимает 2.