Урок на тему: «Массивы. Перебор элементов массива»

Массивы

Массив – совокупность однотипных данных, хранящихся в последовательных ячейках памяти и имеющих общее имя.

Ячейки - элементы массива .

Все элементы пронумерованы по порядку.

Порядковый номер - индекс элемента массива.

Все элементы имеют один и тот же тип.

Одномерный массив (вектор)

T – имя массива,

числа в ячейках памяти – элементы массива

Обозначение 3-его элемента массива

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

Описание массива на языке Паскаль

«Имя массива» :array[границы изменения индекса]of «тип элементов»

Например: T :array [1..8] of integer

Индекс изменяется в интервале от 1 до 8

Тип элементов массива - целый

Массивы

Массивы

1. Заполнить массив A[1..7] целыми значениями с клавиатуры и вывести на экран в строчку.

Program mas;

V ar

A:array[1..7]ofinteger;

i:integer;

Begin

WRITE('Введите 7 чисел:');

FOR i:=1 to 7 DO

READ(A[i]);

WRITELN;

FOR i:=1 to 7 DO

WRITE(A[i]);

End.

2 . Дан массив A={-1,5; 5,5; -3,5; 7,5}. Найти количество положительных элементов в массиве.

Program mas1;

var

i,n:integer;

A:array [1..4] of real;

begin

for i:=1 to 4 do

begin

writeln('Введите элемент массива',i);

read (A[i]);

end;

n:=0;

for i:=1 to 4 do

if A[i]>0 then n:=n+1;

Writeln (' количество положительных элементов в массиве ',n);

end.

3. Составьте программу, которая формирует массив A из 10 элементов.

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

Program mas2;

Var

A:array[1..10]ofinteger;

S,k,I:integer;

Begin

WRITE('Введите 10 чисел:');

FOR i:=1 to 10 DO

READ(A[i]);

WRITELN;

S:=0; K:=0;

FORi:=1to10DO

IFA[i]>0 then begin S:=S+A[i]; K:=K+1;end;

WRITE('Сумма=',S);

WRITE('Количество=',k);

end.

Самостоятельно

Составьте программу, которая формирует массив A из 10 элементов.

Вычислить произведение и количество отрицательных элементов массива.

2. Сформировать массив Т[1..9]. Найти в нем количество положительных, отрицательных и нулевых элементов.

Для учителя

1. Составьте программу, которая формирует массив A из 10 элементов.

Вычислить произведение и количество отрицательных элементов массива.

Program rif;

Var

A: array [1..10] of integer;

S,k,I: integer;

Begin

WRITE('Введите 10 элементов массива:');

FOR i:=1 to 10 DO

READ(A[i]);

WRITELN;

S:=1; K:=0;

FOR i:=1 to 10 DO

IF A[i]<0 then begin S:=S*A[i]; K:=K+1; end;

WRITE('Произведение отриц эл-тов =',S);

WRITE('кол-во=',k);

end.

2. Сформировать массив Т[1..9]. Найти в нем количество положительных, отрицательных и нулевых элементов.

Program rif;

Var

A: array [1..9] of integer;

Nul, P, Otr,i: integer;

Begin

WRITE('Введите 9 чисел:');

FOR i:=1 to 9 DO

READ(A[i]);

WRITELN;

Nul:=0; P:=0; Otr:=0;

FOR i:=1 to 9 DO

IF A[i]=0 then Nul:=Nul+1

else

If A[i]>0 then P:=P+1

else Otr:= Otr+1;

WRITEln('нулей=',Nul);

WRITEln('Полож=',P);

WRITE('Отриц=',Otr);

end.

Адрес публикации: https://www.prodlenka.org/metodicheskie-razrabotki/231692-urok-na-temu-massivy-perebor-jelementov-massi