program raf105;
const
n = 4;
m = 3;
var
a: array[1..n,1..m] of real;
b: array[1..n] of byte;
x: boolean;
begin
for var i: =1 to n do
begin
writeln('заполните столбец ',i,' числами по очереди');
for var j: =1 to m do
readln(a[i,j]);
end;
for var i: =1 to n do
begin
x: = true;
for var j: =1 to m-1 do
if not(a[i,j] < a[i,j+1]) and x then x: = false;
if x then b[i]: = 1
else b[i]: = 0;
end;
writeln;
writeln('массив b: ',b);
end.
pascalabcПоделитесь своими знаниями, ответьте на вопрос:
Рассчитать количество теплоты, необходимое для нагревания тела массой m, удельной теплоемкостью c от температуры t1 до t2. прошу решить эту для ученика 10 класса, на языке паскаль
var t1,t2,m,c: real; begin write('t1='); readln(t1); write('t2='); readln(t2); write('m='); readln(m); write('c='); readln(c); writeln('q=', c*m*(t2-t1)); end.