Объяснить, что означает каждая строчка:
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.-конец всей программы
Оцени ответ
