Одномерные массивы (последовательности)

Сентябрь 7, 2022

Главная
Алгебра
Одномерные массивы (последовательности)

Содержание

2. Найти произведение элементов одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры.
3. Program proisveden; Var a: array[1..100] of integer; i, n, p: integer; Begin Write (‘Сколько элементов? ’);
4. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-56, 47]
5. Program proisvedchetbolt; Var a: array[1..100] of integer; i, n, p, t: integer; Begin Write (‘Сколько элементов?
6. Найти наименьший элемент одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры.
7. Program minim; Var a: array[1..100] of real; i, n: integer; min: real; Begin Write (‘n=’); Readln
8. В заданном одномерном массиве, состоящем из n целых чисел, подсчитать количество четных элементов.
10. Скачать презентацию

Слайд 2

Найти произведение элементов одномерного массива, состоящего из n элементов. Элементы

вводятся с клавиатуры.

Слайд 3

Program proisveden;
Var a: array[1..100] of integer;
i, n, p: integer;
Begin
Write (‘Сколько элементов?

’); Readln (n);
p:=1;
For i:=1 to n do
begin
write (‘введите число’); readln (a[i]);
p:=p*a[i];
end;
writeln(‘произведение элементов равно: ‘,p);
End.

Слайд 4

Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных

чисел на интервале [-56, 47] (размер произвольный). Найти произведение элементов с четными номерами, которые превосходят некоторое число t.

Слайд 5

Program proisvedchetbolt;
Var a: array[1..100] of integer;
i, n, p, t:

integer;
Begin
Write (‘Сколько элементов? ’); Readln (n);
P:=1;
For i=1 to n do
begin
a[i]:= Random(104)-56; writeln (a[i],’ ‘);
if (i mod 2 = 0) and (a[i]>t) then P=P*a[i];
end;
Writeln(‘Произведение элементов с четными номерами, превосходящие число t:’, P);
End.

Слайд 6

Найти наименьший элемент одномерного массива, состоящего из n элементов. Элементы вводятся

с клавиатуры.

Слайд 7

Program minim;
Var a: array[1..100] of real;
i, n: integer;
min:

real;
Begin
Write (‘n=’); Readln (n);
For i:=1 to n do
begin
write(‘a[‘,i,’]=’); readln (a[i]);
end;
min:=a[1];
For i:=2 to n do
If a[i]< min then min:=a[i];
Writeln(‘наименьшее число: ‘,min);
End.

Слайд 8