Начнём использовать массивы
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
//создадим массив из 10 элем элементов
var a:array[1..10] of integer;
i:integer;
begin
Writeln('Pishem v massiv chisla on 1 do 10');
//пробегаем по элементам массива
for i := 1 to 10 do
begin
a[i] := i;//заполняем его числами от 1 до 10
end;
Writeln('Vot, chto v massive:');
//теперь выведем их на экран
for i := 1 to 10 do
begin
Writeln(a[i]);//выводим элементы на экран
end;
Readln;//Обязательная команда, чтобы программа не закрывалась внезапно
end.
Работает? Теперь будем расширять. Новая программа будет заполнять массив случайными числами, находить их сумму, максимальное из них и минимальное
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
//создадим массив из 10 элем элементов
var a:array[1..10] of integer;
i:integer;
s:integer;
mx:integer;
mn:integer;
begin
Writeln('Pishem v massiv sluchajnye chisla');
//пробегаем по элементам массива
for i := 1 to 10 do
begin
a[i] := random(100);//заполняем его случайными числами от 0 до 99
end;
Writeln('Vot, chto v massive:');
//теперь выведем их на экран
for i := 1 to 10 do
begin
Writeln(a[i]);
end;
//ищем сумму. вначале она равна 0
s:=0;
for i := 1 to 10 do
begin
s:=s+a[i];
end;
Writeln('summa ravna ', s);
//Теперь ищем максимум и минимум. Вначале они оба равны первому элементу
mx:=a[1];
mn:=a[1];
for i := 2 to 10 do
begin
//Если находится элемент, который больше текущего максимума текущий масимум поднимаем
if a[i] > mx then
mx := a[i];
//Если находится элемент, который меньше текущего минимума текущий минимум поднимаем
if a[i] < mn then
mn := a[i];
end;
Writeln('minimum raven ', mn);
Writeln('maximum raven ', mx);
Readln;
end.
Подумайте самостоятельно, как сделать так, чтобы эти 10 чисел не генерировал компьютер, а вводил человек.
