В программе Lazarus Створіть проект та надішліть скріншот форми та коду програми для розв'язку наступної задачі: У багаторядковому текстовому полі містяться значення середньої температури повітря за весь тиждень. З'ясуйте скільки разів на тиждень середня денна температура була вище нуля.
// Внимание! В более ранних версиях программа работать не будет!
begin
var d:=MatrRandom(4,4,-20,20);
Writeln('Исходный массив'); d.Println(4);
var s:=d[0,0];
for var i:=1 to 3 do begin d[i,i]:=d[i,0]; s+=d[i,i] end;
Writeln('Полученный массив'); d.Println(4);
Writeln('Сумма на главной диагонали ',s)
end.
Пример
Исходный массив
14 8 -12 12
15 -9 -16 -6
18 -7 7 5
-7 -12 -10 -14
Полученный массив
14 8 -12 12
15 15 -16 -6
18 -7 18 5
-7 -12 -10 -7
Сумма на главной диагонали 40