возможный объем данных и ввести возможное количество элементов массива.
Необходимо помнить, что при назначении размера массива, компьютер резервирует память под этот массив. Поэтому, не стоит назначать массив больше, чем он может понадобится.
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть
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;
…….
4. Сортировка элементов массива .
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
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
Алгоритм и программу обработки массива рассмотрим долее
Пример M_O_2: