Створіть масив з 5 елементів(всі його елементи мають бути введені з клавіатури та зробити інверсію масиву)
1.Задаємо назву масиву на його проміжок [1..5]
Вводимо на екран назву програми .
Виведемо на екран примітку
Вводимо екран повідомлення(задай 5 натуральних чисел від 1 до 99)
Виводимо на екран повідомлення(введіть масив)
Вводимо масив через «Ентер»
Одновимірний масив (чи просто масив) — це такий засіб мови програмування (на зразок змінної) (Іноді масивом називають саму впорядковану множину значень. А кожне таке значення називають елементом масиву. Таке змішування понять не повинно Вас бентежити — програмісти не математики і не схильні до ювелірної точності визначень), що дозволяє посилатися на будь-який елемент пронумерованої множини значень. При цьому всі значення (елементи множини) повинні бути одного типу. А їхня кількість не повинна перевершувати заздалегідь заданого числа.
Задача 2
Скласти програму з обов’яковим використанням масивів. Кількість елементів масиву попередньо задано сім, масиви вводяться з клавіатури через «Enter». Знайти та вивести на екран максимальне та мінімальне значення масиву, середнє арифметичне та вивести на екран кількість елементів масиву.
Program Z2;
var
A:array[1..7] of integer;
i,n:integer;
max,min:integer;
q:real;
begin
writeln('ведіть 7 чисел через ентер');
for i:= 1 to 7 do
readln(A[i]);
writeln('zadani chusla');
for i:= 1 to 7 do
write(A[i],' ');
writeln;
q:=(A[1]+A[2]+A[3]+A[4]+A[5]+A[6]+A[7])/7;
writeln('ser=',q:3:2);
max:=A[1];
min:=A[1];
if max<A[i] then
max:=A[i];
if min>A[i] then
min:=A[i];
writeln('max=',max);
writeln('min=',min);
writeln('ser',q:3:2);
writeln('Кількість елементів масивує 7');
readln
end.
