Вычислите в MS Excel произведение наибольшего и наименьшего число среди данных -90, -21, -8, 0, 9, 57, 79, 91, 125, 347, 682, 2
JayGrey [3]
Відповідь:
записать все числа в комииркы выбрать знак суммы выбрать нужною умову и вказать диапазон.
Пояснення:
Скорее всего открыл: Файл -> Сведения
и посмотрел "Автор" и "Кем изменено" и эти значения оказались одинаковыми у нескольких человек.
Автор меняется правой кнопкой мыши, для изменения поля "Кем изменено" нужно внести какие-нибудь правки на своём компьютере и сохраниться.
ТУТ СЛОВО ВЕРТОЛЁТ!!!!!!!!!
Program p1;
const n=5;
var i:integer;
kurs: array[1..n] of real;
summa,r,bank: real;
begin
writeln('Введите сумму: ');
read(summa);
for i:=1 to n do begin
writeln('Введите курс в ',i,' банке: ');
read(kurs[i]);
end;
r:=0;
for i:=1 to n do begin
if (kurs[i]*summa)>r then
begin
r:=kurs[i]*summa;
bank:=i;
end;
end;
writeln('Выгодно в банке №: ',bank);
<span>end.</span>