Emevuz
05.03.2021 23:09

Посчитайте средний расход бензина за 5-ое октября. В электронную таблицу занесли информацию о грузоперевозках,
совершённых некоторым автопредприятием с 1 по 9 октября.

Каждая строка таблицы содержит запись об одной перевозке. В столбце A
записана дата перевозки (от «1 октября» до «9 октября»); в столбце B —
название населённого пункта отправления перевозки; в столбце C —
название населённого пункта назначения перевозки; в столбце D —
расстояние, на которое была осуществлена перевозка (в километрах); в
столбце E — расход бензина на всю перевозку (в литрах); в столбце F —
масса перевезённого груза (в килограммах).
1)Всего в электронную таблицу были занесены данные по 370
перевозкам в хронологическом порядке.
2)Выполните задание:
Откройте файл с данной электронной таблицей. На основании данных,
содержащихся в этой таблице, ответьте на вопрос в соответствующей ячейке
таблицы:

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
knoposhka123
19.05.2021 02:32
1)
const n=10;
var a:array[1..n] of integer;
i,min,s:integer;
begin
for i:=1 to n do
begin
a[i]:=random(81)+10;
write(a[i]:4);
end;
writeln;
min:=a[1];
for i:=1 to n do
begin
if a[i]<min then min:=a[i];
s:=s+a[i];
end;
writeln('min = ',min);
writeln('s = ',s);
end.

Пример:
 54 58 67 78 58 79 54 78 44 60
min = 44
s = 630

2)
const n=9; m=6;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do a[i,j]:=i;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]);
writeln;
end;
end.

Результат: 
111111
222222
333333
444444
555555
666666
777777
888888
999999 
0,0(0 оценок)
Ответ:
korol23
04.06.2022 05:55
Program z1;
        var a:array[1..100] of integer;
        n,i:byte;ma:integer;
begin
        write('n=');readln(n);
        for i:=1 to n do begin
                write(i,')');readln(a[i])
        end;
        ma:=a[1];
        for i:=1 to n do begin
                if a[i]>ma then begin
                        ma:=a[i]
                end
        end;
        for i:=1 to n do begin
                a[i]:=ma
        end;
        writeln('test n=',n);
        for i:=1 to n do begin
                writeln(a[i])
        end;
        readln
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота