Раскрась и заполни таблицу преобразуй данные из одного вида в другой (графические в текстовые).
Программа в файле. Если температура выше 37.5, то рекомендует остаться дома. Если меньше 37.5, но больше 36.9, то выводит, что лучше выпить таблетку. Если температура меньше 36.9, то выводит, что ты здоров.
Program otvet0x40;
var x,i:integer;
begin
for i:=0 to 40 do begin
x:=sqr(i)+i+41;
write(' x(',i,')=',x);
end;
<span>end. </span>
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var m,n:integer;
Write('Ввведите число строк и столбцов: ');
Read(m,n);
Writeln('Исходный массив');
var L:=MatrixRandom(m,n,-99,99);
var s:=0;
for var i:=0 to m-1 do begin
for var j:=0 to n-1 do begin
Write(L[i,j]:4);
if L[i,j]<0 then s+=L[i,j]
end;
Writeln
end;
Swap(L[0,0],L[m-1,n-1]);
Writeln('Результирующий массив');
for var i:=0 to m-1 do begin
for var j:=0 to n-1 do Write(L[i,j]:4);
Writeln
end;
Writeln('Сумма отрицательных элементов равна ',s)
end.
<u><em>Тестовое решение:</em></u>
Ввведите число строк и столбцов: 5 8
Исходный массив
59 28 -26 -31 -2 -75 6 24
-41 -50 -34 -31 58 49 -14 44
-82 15 -47 67 1 -91 -47 -6
-36 73 -41 87 15 61 87 -36
3 -19 34 -27 72 -49 45 -69
Результирующий массив
-69 28 -26 -31 -2 -75 6 24
-41 -50 -34 -31 58 49 -14 44
-82 15 -47 67 1 -91 -47 -6
-36 73 -41 87 15 61 87 -36
3 -19 34 -27 72 -49 45 59
Сумма отрицательных элементов равна -854
