ответ: Кот Леопольд пошёл на рыбалку и наловил рыбы. Каждую рыбу он старательно взвесил. Первая рыба (самая маленькая), которую он взвешивал , весила ровно L грамм. Каждая следующая рыбина была на K грамм тяжелее предыдущей. Сколько весит вся рыба, которую наловил Леопольд, если известно что поймал он N(>0) рыб?
Технические условия. Программа считывает с клавиатуры число N-количество рыб, потом, через пробел, L-массу первой рыбы в граммах и через пробел-K-на сколько каждая следующая рыбина тяжелее предыдущей. Программа выводит на Экран одно целое число-массу всей пойманой рыбы в граммах.
ответ: Кот Леопольд пошёл на рыбалку и наловил рыбы. Каждую рыбу он старательно взвесил. Первая рыба (самая маленькая), которую он взвешивал , весила ровно L грамм. Каждая следующая рыбина была на K грамм тяжелее предыдущей. Сколько весит вся рыба, которую наловил Леопольд, если известно что поймал он N(>0) рыб?
Технические условия. Программа считывает с клавиатуры число N-количество рыб, потом, через пробел, L-массу первой рыбы в граммах и через пробел-K-на сколько каждая следующая рыбина тяжелее предыдущей. Программа выводит на Экран одно целое число-массу всей пойманой рыбы в граммах.
Пример:
Ввод>10 250 100
Вывод>7000
Ввод>12 100 150
Вывод>11100
var b: array of real;
i,n,ll: integer;
max,min,a: real;
begin
write('Введите длину массива: ');
readln(n);
write('Введите число a: ');
readln(a);
setlength(b,n);
writeln('Массив B: ');
for i:=0 to n-1 do
begin
b[i]:=random(3*n);
write(b[i],' ');
end;
writeln;
min:=b[0];
max:=a;
for i:=0 to n-1 do
if min>b[i] then min:=b[i]
else if max<b[i] then begin
max:=b[i];
ll:=i;
end;
writeln('Наименьший элемент массива - ',min);
writeln('Элемент, больший числа ',a,' - ',max,' - находится в ',ll+1,' месте');
end.
Можете вместо real типа данных использовать также и integer. Просто неизвестно какие данные будут использоваться во время проверки