Презентация, доклад на тему Массивы в языке Паскаль.

Массив имеет имя, тип и размер

A[i]

i

mx

k

?
>

13

16

1

3

2

3

4

5

6

ДА

НЕТ

9

4

17

Его номер

Наибольший элемент

const n=10;
Var a:array[1..n] of integer; i, max, k : integer;
Begin
{ заполнение массива и распечатка его в строчку}

For i:=2 to n do
If a[ i ]>max then begin max:=a[ i ]; k:= i; end;

Writeln(‘Наибольший элемент массива равен:‘, max, ‘ его номер:’ ,k);

end.

max:=a[ 1 ]; k:=1

Задания для практической работы №1

S:=0;
For i:= 1 to n do s:=s+a[i];

Sr:=s/n;
Writeln(‘Среднее значение элементов массива равно:’,sr:2:2);

End;

const n=10;
var a:array[1..n] of integer; I,к, х: integer;
Begin
{ заполнение массива и распечатка его в строчку}

Writeln(‘Введите число:’); readln(x);
к:=0;
For i:=1 to n do
If a[i] > x then к:=к+1;

Writeln(‘к= ‘,к);

end.

2-й уровень: *Найти кол-во элементов массива, больших среднего

Задания для практической работы №2

Задания для практической работы №3