Составить программу вычисления суммы элементов массива А, значения которых меньш...

July 2022 1 7 Report

Составить программу вычисления суммы элементов массива А, значения которых меньше чем -0,5. Проверить работу программы за заданном массиве А(11).
Паскаль

Answers & Comments

Alex24241 Var
a: array[1..100] of real;
i,n:Integer;
sum: real;
begin
WriteLn('Введите количество элементов массива');
Readln(n);
WriteLn('Массив');
for i:=1 to n do
begin
a[i]:=(random(100)-50)/10;
Write(a[i]:5);
if a[i]< -0.5 then sum:=sum +a[i];
end;
Writeln;
Writeln('Сумма элементов меньших -0,5 = ', sum);
end.

0 votes Thanks 0

Answers & Comments

najdite grammaticheskuyu osnovu v predlozhenii no tot kto chuet duhovnoe i lyubit e

najdite proizvodnuyu6292007ec4e6cde0f2c6549f79a12a4d 85467

n vyrazite chislo oborotov n

uprostite vyrazhenie1642ff402ac12300b927bd280fc1a329 47356

n 1nn1n12n 1dokazhite chto pravaya chast ravna levoj

vychislitef28e78c9c45c4bdfd21390a23c26daf1 33444

najdite proizvodnuyu6058fc41c25d5346354b7bdc25803087 85390

najdite proizvodnuyu367b6bbd5a97bf36e8f2caaf83c4472b 87874

najdite proizvodnuyu4522f7f21ebbd47e4ea351c54c2ac243 71066

pomogite sokratit drob7853c15125c955433ac52e308ab6aca6 55525

рекомендуемые вопросы

Helpful Links

Helpful Social