Дан массив из 20 действительных чисел. напишите программу, которая складывает отдельно все положительные элементы этого массива, а отдельно отрицательные элементы и выдает на экран полученные результаты. желательно подробную программу, буду всем )
Var A:array[1..20]of real; B,C:real; i:byte; Begin WriteLn('Введи элементы массива через пробел'); For i:= 1 to 20 do Read(A[i]); For i:= 1 to 20 do if A[i]>0 then B:=B+A[i] else C:=C+A[i]; WriteLn('Сумма положительных элементов = ',B); WriteLn('Сумма отрицательных = ',C) End.
for I : byte := 1 to 10 do a[i] := random(1, 60000);
max := 0; for I : byte := 1 to 10 do if a[i] > max then max := a[i];
writeln(max*3);
end.
Добавлю и объяснение. Алгоритм заполняет целочисленный массив из десяти элементов случайными числами. Возможны диапазон числе: от 1 до 60000. Затем в следующем цикле выискивается максимальное число, которое выдал генератор случайных чисел. В строке writeln выводится значение этого числа умноженное на три.
B,C:real;
i:byte;
Begin
WriteLn('Введи элементы массива через пробел');
For i:= 1 to 20 do
Read(A[i]);
For i:= 1 to 20 do
if A[i]>0 then B:=B+A[i]
else C:=C+A[i];
WriteLn('Сумма положительных элементов = ',B);
WriteLn('Сумма отрицательных = ',C)
End.