Объяснить, что означает каждая строчка:
 
Program sum_mas;
uses Crt;
Var i: integer;
sum:real;
M:array[1..5] of Real;
begin
WriteLn('Введите число m[',i,']=');
readln(m[i]);
end;
Sum:=0;
For i:=1 to 5 do
Sum:=sum+m[i];
Writeln('сумма =',sum);
readln;
end.
 

Есть ответ
17.12.2022
167

Ответ


Program sum_mas;-имя программыuses Crt;-вывод в виде сообщ.Var i: integer;-описание переменныхsum:real;-описание переменныхM:array[1..5] of Real;описание массива и его размерbegin-начало программыWriteLn('Введите число m[',i,']=');-ввод массиваreadln(m[i]);чтение массиваend;-конец Sum:=0;-сумма=0For i:=1 to 5 do-цикл от 1 до 5Sum:=sum+m[i];-сумма = сумма + массивWriteln('сумма =',sum);-вывод суммыreadln;-чтение просто , что бы курсор переходил на другую строкуend.-конец всей программы

 

 


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.