Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа. Первая публикация Вирта о языке датирована 1970 годом, представляя язык, автор указывал в качестве цели его создания — построение небольшого и эффективного языка хорошему стилю программирования, использующемуструктурное программирование и структурированные данные.
procedure EnterMas(var Mas: Matrix); var i, j: integer; begin randomize; for i := 1 to n do for j := 1 to m do Mas[i, j] := random(100); end;
procedure GiveMas(var Mas: Matrix); var i, j: integer; begin for i := 1 to n do begin for j := 1 to m do begin write(Mas[i, j], ' '); end; writeln; end; end;
function SumStroki(Mas: Matrix; i, k: integer): integer; var j, sum: integer; begin sum := 0; for j := 1 to m do Sum := Sum + Mas[i, j]; SumStroki := sum - k; end;
function Element(var Mas: Matrix): integer; var i, j, count: integer; begin count := 0; for i := 1 to n do for j := 1 to m do if Mas[i, j] > SumStroki(Mas, i, Mas[i, j]) then inc(count); Element := count; end;
var Mas: Matrix; Sum, Max: integer;
begin EnterMas(Mas); GiveMas(Mas); writeln('Кол-во особых элементов ', Element(Mas)); end.
ответ:Да ладно?
Объяснение: