Пусть дано 100 целых чисел, которые вводятся по одному. Найти сумму чисел, которые меньше по абсолютному значению квадрата порядкового номера вводимого числа. (через while или repeat)
1. Для того, чтобы текст был более восприимчив и понятен.
2. Из интернета, архива, галлереи.
3. Чтобы изменить способ размещения рисунка, следует щелкнуть на нём правой кнопкой мыши и выбрать в контекстном меню пункт Формат рисунка.
4. Левая кнопка мыши, нажать на вставить. Или же выбрать в верхнем левом углу выбрать файл и вставить.
5. Нажать два раза правой кнопкой мыши.
6. CTRL + C, CTRL + V. Или же левой кнопкой мыши нажать на рисунок и выбрать пунк: копировать.
7. Левой кнопкой мыши нажать на рисунок и выбрать пункт удалить. Или же нажать на клавишу Del.
8. В разделе Работа с рисунками на вкладке Формат в группе Изменение нажмите кнопку Сжать рисунки. Чтобы выполнить сжатие только для выбранных, а не для всех рисунков в документе, установите флажок Применить только к этому рисунку.
//Задан одномерный массив, заполненный 15-тью случайными целыми числами из интервала от -20 до 20.
//Составь программу, выполняющую следующие действия: Заполнение массива, вывод на экран всех элементов исходного массива в строчку через пробел,
//сортировка элементов массива по возрастанию, вывод полученного в результате массива на экран с новой строки через пробел.
program massiv;
var m:array[1..15] of integer;
i,j:byte;
t:integer;
BEGIN
//заполнение случайными числа в диапазоне [-20;20]
//random(41) выдает случ. значение от 0 до 40, если вычесть -20 с концов этого отрезка получится от -20 до 20
for i:=1 to 15 do m[i]:=random(41)-20;
//вывод полученного массива на экран
for i:=1 to 15 do write(m[i],' ');
writeln;//переход на следующую строку
//сортировка пузырковым методом
for i:=1 to 14 do
for j:=i+1 to 15 do
if (m[i]>m[j]) then begin
t:=m[i]; m[i]:=m[j]; m[j]:=t;//обмен элементов массива местами
end;
writeln('Остортированный массив');
//вывод сортированного массива на экран
for i:=1 to 15 do write(m[i],' ');
END.
Объяснение:
2. Из интернета, архива, галлереи.
3. Чтобы изменить способ размещения рисунка, следует щелкнуть на нём правой кнопкой мыши и выбрать в контекстном меню пункт Формат рисунка.
4. Левая кнопка мыши, нажать на вставить. Или же выбрать в верхнем левом углу выбрать файл и вставить.
5. Нажать два раза правой кнопкой мыши.
6. CTRL + C, CTRL + V. Или же левой кнопкой мыши нажать на рисунок и выбрать пунк: копировать.
7. Левой кнопкой мыши нажать на рисунок и выбрать пункт удалить. Или же нажать на клавишу Del.
8. В разделе Работа с рисунками на вкладке Формат в группе Изменение нажмите кнопку Сжать рисунки. Чтобы выполнить сжатие только для выбранных, а не для всех рисунков в документе, установите флажок Применить только к этому рисунку.