Вот у тебя а, b и c интеджер (целые)
Первое действие, которое ты делаешь: С= a+b
a+b = целое + целое = целое, ошибки нету
Второе действие: С = a-b = целое - целое = целое, ошибку не выдает.
А вот далее ты делишь целое на целое. C= a/b
Предположим что а = 5, b=2. С =5/2= 2.5
Но задано то С у тебя как целое...
В общем чтобы не было конфликтов с остатком от деления, делением и делением без остатка, замени в варе
integer на real.
А еще учитель может придраться что d объявлена, но не используется))
Удали строчку с объявлением d
var
number: integer;
begin
var size := readinteger;
var max := -32768;
for var i := 1 to size do
begin
number := readinteger;
if (number mod 4 = 0) and (number > max) then
max := number;
end;
write(max);
end.
Объяснение:
var
number: integer; // Целочисленная переменная, хранящая вводимые с клавиатуры числа
begin // Начало программы
var size := readinteger; // Считываем размер последовательности с клавиатуры
var max := -32768; // integer принадлежит диапазону [-32 768…32 767], взял за максимум самое маленькое число
for var i := 1 to size do // Идём от 1 до размера последовательности
begin // Начало цикла
number := readinteger; // Считываем число последовательности с клавиатуры
if (number mod 4 = 0) and (number > max) then // Если число делится на 4 без остатка и оно > max
max := number; // max присваиваем number
end; // Конец цикла
write(max); // Выводим ответ
end. // Конец программы
uses crt;
var a:array [1..99, 1..99] of integer;
i,j,n,m,x,z:integer;
begin
clrscr;
randomize();
z:=0;
writeln('Введите количество строк');
readln(n);
writeln('Введите количество столбцов');
readln(m);
writeln('Введите номер строки');
readln(x);
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(10);
if x=i then z:=z+a[i,j];
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:2, ' ' );
writeln();
writeln;
end;
writeln('Сумма ',x,' строки=',z);
readln();
end.