Как протестировать код program n_13_63; var a, b: integer; s, x: real; begin writeln (‘Подсчет суммы - id1700551120210821 от Асыл111111111 21.08.2021 00:58

Question

Информатика: Как протестировать код program n_13_63; var a, b: integer; s, x: real; begin writeln (‘Подсчет суммы от продажи билетов’); writeln (‘Количество а непроданных билетов бизнес-класса’); readln (a); writeln (‘Количество b непроданных билетов экономического класса’); readln (b); writeln (‘Стоимость билетов бизнес-класса х‘); readln (x); s:=(40−a)*x+(120−b)*x/2; writeln (‘Билетов продано на ‘, s,’ руб.’) end. 5-й этап Протестировать программу можно по следующим данным: а = 39, b = 119, х = 2000, s = 3000.

Асыл111111111 · Accepted Answer

Program gulkakh;
const n=5;
var a:array[1..n,1..n] of integer;
i,j,k,max,stroka:integer;
begin
writeln('Исходная матрица:');
for i:=1 to n do
for j:=1 to n do begin
a[i,j]:=random(20)-10;
write(a[i,j],' ');
if j=n then writeln;
end;

stroka:=1;
max:=a[1,1];

for i:=1 to n do
for j:=1 to n do begin
if max<a[i,j] then begin
max:=a[i,j];
stroka:=i;
end;
end;

k:=n;

for i:=stroka to n-1 do
for j:=1 to n do
a[i,j]:=a[i+1,j];
k:=k-1;
writeln('Без удаленной строки:');
for i:=1 to k do
for j:=1 to n do begin
write(a[i,j],' ');
if j=n then writeln;
end;
end.

MOGZ ответил