Одномерные массивы целых чисел. Начала программирования

в массиве.

a[i] – элемент массива
i - индекс элемента массива
a[i] =7 – значение элемента массива

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

Значение элемента массива

Индекс элемента массива

a[1]=7 a[2]=-5 a[3]=9 a[4]=1 … a[9]=6

integer = (4, 2, 3, 5, 7);

Тип элементов массива

Имя массива

Максимальное значение индекса

Минимальное значение индекса

Значение 1-го элемента массива

Массив b с постоянными значениями описан в разделе описания констант.

10 do read (a[i]);
2 способ. С помощью оператора присваивания (по формуле):
for i:=1 to 10 do a[i]:=i;
3 способ. С помощью оператора присваивания (случайными числами):
for i:=1 to 10 do a[i]:=random(100);

a[i]=2*i+6

пробелом:
for i:=1 to 10 do write (a[i], ' ');

2 способ. Вывод с комментариями:
for i:=1 to 10 do writeln ('a[', i, ']=', a[i]);
Что будет на экране?

A(10) случайными числами и вывод элементов массива

begin
  for i:=1 to 10 do a[i]:=random(50);

for i:=1 to 10 do write (a[i],` `);  
end.

слагаемых:

Описывается ячейка памяти (переменная s),
в которой будет последовательно накапливаться
результат суммирования var S : real;

Присваивается переменной s начальное значение 0
S:=0;

Для каждого элемента массива из переменной s
считывается её текущее значение и складывается
со значением элемента массива;
полученный результат присваивается переменной s.
S: = S + a [ i ];

do s:=s+a[i];

integer;
begin 
s:=0;
for i:=1 to 10 do a[i]:=random(50);
for i:=1 to 10 do write (a[i],` `);
for i:=1 to 10 do s:=s+a[i];
writeln ('s=', s);
end.

равно заданному значению

следующую карточку, сравнить числа. Если
на карточке число больше, то записать это число
на доске

Нахождение наибольшего элемента
в стопке карточек с записанными числами:

3. Повторить действия, описанные в пункте 2 для всех
оставшихся карточек

a:array[1..10] of integer;
begin 
for i:=1 to 10 do a[i]:=random(50);
for i:=1 to 10 do write (a[i],` `);
max:=a[1];
for i:=2 to 10 do
if a[i]>max then max:=a[i];
write ('Наибольший элемент =', max);
end.

заданному с клавиатуры или выдать сообщение о том, что искомого элемента в массиве не обнаружено.

Например:

Варианты:
Найти элемент, равный 3:
Трём равен 4-й элемент; i = 4
Найти элемент, равный 10:
Десяти равны 1-й и 9-й элементы: ?
Найти элемент, равный 12:
Нет элемента, равного 12;
нет такого элемента

элементов, удовлетворяющих условию.

program  n_4;
var n, i: integer;
a:array[1..10] of integer;
begin 
for i:=1 to 10 do a[i]:=random(60);
for i:=1 to 10 do write (a[i],` `);
n:=0;
for i:=1 to 10 do
if a[i]=14 then n:=i;
if n=0 then write('Нет такого элемента')
else write (n);
end.

каждый раз, когда найден нужный элемент.

program  n_6;
var k, i: integer;
a:array[1..10] of integer;
begin 
for i:=1 to 10 do a[i]:=random(60);
for i:=1 to 10 do write (a[i],` `);
k:=0;
for i:=1 to 10 do
if a[i]>50 then k:=k+1;
write('k=', k)
end.

a:array[1..10] of integer;
begin 
for i:=1 to 10 do a[i]:=random(60);
for i:=1 to 10 do write (a[i],` `);
s:=0;
for i:=1 to 10 do
if (a[i]>10) and (a[i]<30) then s:=s+a[i];
write(‘s=', s)
end.