Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

Дан массив А(100). Распечать наименьше значение попарных сумм. Решите, пожалуйста!!!

10-11 класс

(С использованием команда random или без неё).

ПанкиХой 10 сент. 2014 г., 5:23:21 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
17072010d
10 сент. 2014 г., 8:20:39 (9 лет назад)

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.

+ 0 -
Mikci123
10 сент. 2014 г., 9:59:53 (9 лет назад)

Тебе значения всех сумм надо?

Ответить

Другие вопросы из категории

Помогите, пожалуйста. Паскаль

Написать программу, которая выводит целые числа в промежутке от 1 до 50, кратные четырем и считает их количество, сумму и произведение.

составить блок схему по программе pascal program zadacha 3_1. var max,x,e:real; begin writeln('введите натуральное число x');readln(x);

writeln('введите число y');readln(y); if x>y then max:=x else max:=y; writeln('большее из двух =',max); end.

1)Сначала суток прошло n секунд, определить: сколько полных часов прошло с начала суток, сколько полных минут прошло с начала текущего часа, сколько

полных секунд прошло сначала текущей минуты.
2)Производительность труда при выполнении некоторой работы повысилась на 40%. На сколько процентов сократилось время необходимое для выполнения этой работы.
3)Велосипедист должен попасть в место назначения к определённому сроку. Известно, что если он поедет со скоростью 15 км в час, то приедет на час раньше, а если скорость будет 10 км в час, то опоздает на 1 час. С какой скоростью должен ехать велосипедист, чтобы приехать вовремя?
решите в паскале без описания

101101101+110101111=

информатика

Читайте также

№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от 0 до 100. Напишите программу, которая позволит найти сумму

двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.

№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от -100 до 100. Напишите программу, которая позволит

подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива

Паскаль. 12.Дан массив А(3*4). Найти сумму первых отрицательных элементов в каждом столбце. 13.Даны два массива А(3*3)

и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.

17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.

Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать

только элементы кратные 2

3)Найти сумму первых пяти элементов

Составить программу Дан массив целых чисел , размерность -12

1) Заполнение массива производить случайными числами из диапозона [-10;35]

2)Вывести на печать только положительные элементы

3)Найти количество отрицательных элементов

Составить программу

Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .



Вы находитесь на странице вопроса "Дан массив А(100). Распечать наименьше значение попарных сумм. Решите, пожалуйста!!!", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.