Одномерные массивы в Паскале

Ольга Васильевна

–
Улица Мира дом №3 –
Улица Мира дом №10 –
Ивановы
Ивановы
.
.

.
Степановы
Петровы

Ответьте на вопросы.

Кто живет по адресу: улица Мира дом №2?

По какому адресу живут Ивановы?

4 5 6 7

8 9 10 11

М[4]

М[6]

М[1]

, М[9]

М[5]

Выполните задание в тетради

с колонками число, адрес.

имя.

Чтобы осуществить доступ к конкретному данному в массиве необходимо указать

имя массива, а в скобках индекс( порядковый номер).
Прежде чем воспользоваться массивом для решения задач необходимо его построить, т.е.:
описать тип и указать количество элементов массива,
например: VAR М:array[1..11] of real;
2. записать программу ввода элементов массива в память.

FOR I:=1 TO 11 DO
begin
WRITE(’введи

T[‘,I,’] =‘);
READLN (T[I]);
end;
End.

ВВОД

T:array[1..12] of real, I: integer;
Begin
FOR I:=1 TO

12 DO
begin
WRITE(’введи T[‘,I,’] =‘);
READLN (T[I]);
end;
K:=0;
FOR I:=1 TO 12 DO
IF T[I]<0 THEN K:=K+1;
WRITELN(’число месяцев с отрицательной
температурой — ‘,K);
READLN
END.

ВВОД

K,

решение

array[1..20] of real, I: integer;
randomize;
Begin
FOR I:=1 TO 20

DO
Begin
M[I]:= RANDOM(50);
WRITE (M[I]: 4);
end;
END.

ВВОД

х
PROGRAM PM2;
VAR М: array[1..20] of real, I:

integer;
RANDOMIZE;
Begin
FOR I:=1 TO 20 DO
begin
M[I]:= RANDOM(50);
WRITE(M[I]:4 );
end;
WRITELN(‘введи число’ ); READLN (x);
K:=0;
FOR I:=1 TO 20 DO
IF М[I] =Х THEN K:=K+1;
WRITELN(’число’, x,’ встретилось в массиве’, K, ’раз’);
READLN
END.

ВВОД

K, х,

решение

сумму положительных элементов.


2 вариант
В массиве К(15) (интервал ввода чисел

[0;30) )
найти чему равно произведение ненулевых элементов.