Найдите ошибку в программе program name; var a, b: integer; rezult: char; begin a: =6 b: =3 rezult: =a div b end

ответ:

program test01;

var a, b, rezult: integer;

begin

a: =6;

b: =3;

rezult: = a div b;

writeln ('rezult = ', rezult);

end.

объяснение:

Uses crt;   var a,max,x: integer;   begin           clrscr;           write('введите число: ');     readln(a);           max: =a mod 10;         while a> 0 do               begin          x: =a mod 10;           a: =a div 10;             if x> max then max: =x;     end;   writeln('максимальная цифра: ',max);   readln;   end.

Const   nm = 50; {максимальная длина массива} var   i, n: integer;   a: array[1..nm] of integer; begin   write('введите количество элементов в массиве: ');   readln(n);   write('введите элементы массива через пробел ');   for i : = 1 to n do   begin       read(a[i]);   end;   i : = n;   while (a[i] < = 0) and (i > 0) do dec(i);   if i > 0 then writeln('последний положительный элемент a[', i, ']=', a[i]) end. тестовое решение: введите количество элементов в массиве: 5 введите элементы массива через пробел 3 -3 5 -5 -4 последний положительный элемент a[3]=5