Нужно,! на программу паскаль разборка по теме паскаль! три человека пообедали в ресторане,официант подал счет на х рублей каждому,они решили оставить чаевые в размере 15% от счета.найдите сумму
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.
Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа. Первая публикация Вирта о языке датирована 1970 годом, представляя язык, автор указывал в качестве цели его создания — построение небольшого и эффективного языка хорошему стилю программирования, использующемуструктурное программирование и структурированные данные.
var i: integer;
begin
for i:=1 to 3 do begin
read (a);
b:=a*100/15;
sum:=sum+b
end;
writeln ('сумма чаевых: ', sum:10:2);
end.