Тексты программ с одномерными массивами

Разобрать алгоритмы решения задач, тексты программ. Переписать в тетрадь. Составить блок-схему для каждой задачи.

Ввод и вывод элементов массива
program Pr1;
const K = 100; // Размер массива
 var   A: Array [1..K] of integer;  I: integer;
         N: integer; // Количество элементов в массиве
 begin
  WriteLn('Введите количество элементов в массиве: ');
  ReadLn(N);
  WriteLn('Введите элементы массива: ');
  for i:=1 to N do Read(A[I]); // Заполнение массива с клавиатуры
  Write('Вывод элементов массива: '); 
  for I:=1 to N do  Write(A[I],' ');  //Вывод элементов массива в строчку через пробел
end.

Домашнее задание на цикл с параметром

Оформить программы. 

Задан одномерный массив из N чисел.
Изменить значения элементов массива:
1) все уменьшить на 100:
2) если элемент больше 100, то заменить его на 100;
3) если элемент отрицательный - заменить на его квадрат.

Вывод массива

Домашнее задание "Одномерные массивы"

Дан одномерный целочисленный массив А размерности N. Составить блок-схему и написать программу:

1. Заполнить массив вручную и вывести его элементы в обратном порядке.
2. Найти максимальный элемент массива.
3. Найти минимальный элемент массива.
4. Найти сумму и произведение всех элементов массива.
5. Найти среднее арифметическое всех элементов массива.
6. Найти сумму положительных и произведение отрицательных элементов массива.
7. Заполнить массив А с клавиатуры целыми числами. Сформировать новый массив В, в котором все отрицательные элементы массива заменить на противоположные, т.е. взять со знаком "минус", а положительные - удвоить. Вывести на экран оба массива: исходный и новый. 

Одномерные массивы

Домашнее задание №2 "Ветвление в алгоритмах"

Оформить блок-схемы и программы.

1. Дано двузначное число. Определить, одинаковы ли его цифры.
2. Дано расстояние в сантиметрах и в дюймах (1 дюйм = 25,4 мм). Определить, какое расстояние меньше.
3. Даны объемы и массы двух тел из разных материалов. Определить, материал какого из тел имеет большую плотность?