Const n =5;
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end
Диск
Камень
Кассета
Книжка
Дискета
Бумага
Флеш
Program prog;
Uses crt;
var n,s: integer;
begin
clrscr;
write('n = ');
readln(n);
repeat
s:=(n mod 10)+s;
n:=n div 10;
until
n=0;
writeln;
writeln('S = ', abs(s));
readln;
end.
Можно попробовать и без все таблицы:
1. Для ответа на первый вопрос в ячейку H2 введем формулу = СУММ(D2:Dx)
где Dx - адрес последней ячейки, когда перевозили груз 3 октября.
2. Для ответа на второй вопрос в ячейку H3 необходимо ввести формулу =СУММЕСЛИ(B2:B371;"Липки";F2:F371)/СЧЁТЕСЛИ(B2:B371;"Липки").
В первой части формулы записана сумма всех ячеек F, при условии если в ячейках столбца B название "Липки".
Во второй части формулы подсчитываем количество ячеек столбца B с названием "Липки".
Разделив первую часть формулы на вторую получим ответ на второй вопрос.
Что получится в ячейках H2 и Н3 можно будет увидеть введя формулы в реальную таблицу.
Var money:integer;
min:real;
s:string;
begin
write('Стоимость одной минуты разговора = ');
readln(money);
write('Длительность разговора = ');
readln(min);
write('Какой сегодня день? ');
readln(s);
if (s = 'суббота') or (s = 'Суббота') or (s = 'Воскресенье') or (s = 'воскресенье') then writeln('Стоимость разговора = ',money * min*0.8)
else writeln('Стоимость разговора = ',money*min);
end.