помогите пожалуйста! с информатикой Напишите программу, которая наполняет массив из 20
Помогите пожалуйста! с информатикой Напишите программку, которая заполняет массив из 20 частей случайными числами на отрезке [100; 200] и обретает в нём пару примыкающих частей, сумма которых минимальна.
Задать свой вопрос2 ответа
Vladimir Aparshev
Var a:array[1..20] of integer;
i,min,ind:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(100)+100;
write(a[i]:4);
end;
writeln;
min:=a[1]+a[2];
for i:=2 to 19 do
if a[i]+a[i+1]lt;min then
begin
min:=a[i]+a[i+1];
ind:=i;
end;
write('Сумма мала меж ',ind,' и ', ind+1, ' элементом');
end.
i,min,ind:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(100)+100;
write(a[i]:4);
end;
writeln;
min:=a[1]+a[2];
for i:=2 to 19 do
if a[i]+a[i+1]lt;min then
begin
min:=a[i]+a[i+1];
ind:=i;
end;
write('Сумма мала меж ',ind,' и ', ind+1, ' элементом');
end.
Андраш
Анна
А что такое ind?)
Люба Корпусенко
это переменная, в которую мы бережём значение индексов, сумма которых мала)
Анастасия Ильковец
Её же можно именовать хоть какой иной буквой?
Светлана Гуторева
конечно)
Леонид Крыжиновский
спасибо огромное!!
Ровкова
Варвара
можешь еще помочь?)
Наталья Аферкорн
пожалуйста
Jurik Kroshininnikov
можешь пожалуйста помочь еще?_))))
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов