Дан массив А(100). Распечать наименьше значение попарных сумм. Решите, пожалуйста!!!
10-11 класс
|
(С использованием команда random или без неё).
program n1;
const razmer = 2001;
var a:array [1..100] of integer;
b:array [0..100,0..100] of integer;
i,j,min:integer;
begin
writeln('Исходный массив: ');
for i:=1 to 100 do
begin
a[i]:=random(razmer)-razmer div 2;
write(a[i],' ');
b[i,0]:=a[i];
b[0,i]:=a[i];
end;
writeln;
min:=a[1]+a[2];
writeln('Все возможные значения попарных сумм:');
for i:=1 to 100 do
begin
for j:=1 to i-1 do
begin
b[i,j]:=b[0,j]+b[i,0];
write(b[i,j],' ');
if b[i,j]<min then min:=b[i,j];
end;
writeln;
end;
writeln('Наименьшее значение попарной суммы: ',min);
end.
Тебе значения всех сумм надо?
Другие вопросы из категории
Написать программу, которая выводит целые числа в промежутке от 1 до 50, кратные четырем и считает их количество, сумму и произведение.
было просто и понятно...Спасибо!)
writeln('введите число y');readln(y); if x>y then max:=x else max:=y; writeln('большее из двух =',max); end.
полных секунд прошло сначала текущей минуты.
2)Производительность труда при выполнении некоторой работы повысилась на 40%. На сколько процентов сократилось время необходимое для выполнения этой работы.
3)Велосипедист должен попасть в место назначения к определённому сроку. Известно, что если он поедет со скоростью 15 км в час, то приедет на час раньше, а если скорость будет 10 км в час, то опоздает на 1 час. С какой скоростью должен ехать велосипедист, чтобы приехать вовремя?
решите в паскале без описания
Читайте также
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .