9 класс Задания для одномерного массива
методическая разработка по информатике и икт (9 класс)

Задача 1:

Найти наименьший элемент массива и его номер.

Решение:

Program name;

Var

i, min, n, z:integer;

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

Begin

Randomize;

Writeln(‘введите количество элементов’);

Readln(n);

For i:=1 to n do begin

A[i]:=random(100);

Writeln(A[i]);

End;

min:=A[1];

For i:=1 to n do begin

if min>A[i] then begin min:=A[i]; z:=i;

end;

Writeln(‘наименьший элемент =’,min);

Writeln(‘его номер =’,z);

End.

Задача 2:

Посчитать, сколько в массиве четных элементов.

Решение:

Program name;

Var

i, k:integer;

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

Begin

Randomize;

Writeln(‘введите количество элементов’);

Readln(n);

For i:=1 to n do begin

A[i]:=random(100);

Writeln(A[i]);

End;

k:=0;

For i:=1 to n do begin

 If A[i] mod 2=0 then k:=k+1;

End;

Writeln('Количество чётных элементов массива равно:',k);

End.

Задача 3:

Определить, есть ли в массиве элемент кратный 4. Если есть вывести его номер на экран.

Решение:

Program name;

Var

i, z:integer;

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

Begin

Randomize;

Writeln(‘введите количество элементов’);

Readln(n);

For i:=1 to n do begin

A[i]:=random(100);

Writeln(A[i]);

End;

For i:=1 to n do begin

If A[i] mod 4=0 then writeln (‘Элемент кратный 4 имеет номер’,i);

End;

End.