Презентация на тему Обработка массивов

возможный объем данных и ввести возможное количество элементов массива.

N=10;
Var
T :array[1..N] of real;

program M_2;
Uses crt;
Var
T :array[1..365] of integer;
i,N : integer;
Begin
Write(‘Введите кол-во дней ’);
Readln (N);
Randomize;
For i:=1 to N do
begin
T[i] := -10 + Random(21);
Writeln(T[i] :5);
end;
…….

Поиск максимального (минимального)
элементов.
1. Сложение элементов

4. Сортировка элементов массива .

средней температуры за 10 дней
Для заполнения массива можно использовать

S:=0;
For i:=1 to N do
begin
S:=S+T[i];
end;
Sr:=S/N;
Writeln(‘Sr = ',Sr);
End.

Задание 1. Наберите программу, запустите на выполнение 3 раза, запишите результаты.

Задание 1_2*. Измените программу так, чтобы обрабатывались ячейки только с четными номерами. (формула четного индекса i:=k*2)

Пример M_O_1

Массив, заполнен случайными числами из диапазона от -2 до

program M_O_2;
uses crt;
Const N=10;
Var A:array[1..N] of real;
k,i: integer;
Begin
Randomize;
For i:=1 to N do
begin
A[i] := (-20 + Random(51))/10;
Writeln(A[i] :5:1);
end;

Для описания и заполнения массива используем способ №3

Алгоритм и программу обработки массива рассмотрим долее

if A[i] < 0 then k:=k+1;

Пример M_O_2:

количества и суммы положительных элементов массива. (M_О_21)
Задание 2: Используя