Малому предприятию «ЛЮКС» необходимо спланировать расходы на текущий год ежемесячных коммерческих поездок из Москвы в Санкт-Петербург на микроавтобусах ГАЗель (76) , Мерседес (95) и Ниссан (93). Известны: - расстояние (в км ) от Москвы до Санкт-Петербурга - 680 км; - расход (в л) бензина на 100 км пути - 13 литров, 12 литров, 10 литров; - количество поездок в месяц; - цена одного литра бензина в январе: 76 - 5.60; 93 - 6.80; 95 - 8.00. - из-за инфляции цена ежемесячно будет возрастать на спрогнозировать ежемесячные расходы на бензин для этих поездок в течение года.
m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
end;
writeln;writeln;
end;
//сумма всех элементов массива
for i:=1 to n do
for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
s:=0;
for j:=1 to m do begin
s:=s+a[i,j];
end;
writeln ('Строка: ',i,' сумма:',s);
end;
end.