Объяснить, что означает каждая строчка:

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.

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;-сумма=0

For i:=1 to 5 do-цикл от 1 до 5

Sum:=sum+m[i];-сумма = сумма + массив
Writeln(сумма =,sum);-вывод суммы

readln;-чтение просто , что бы курсор переходил на другую строку

end.-конец всей программы

 

 

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку