Презентация, доклад по информатике на тему Поиск чисел в массиве

[нач.инд... кон.инд.] of тип данных;

Пример:
Var A: array [1..10] of real;

Ввод массива
For i:=1 to 10 do
read(A[i]);

Вывод массива
For i:=1 to 10 do
write(A[i]);

(A[i]:6:2);

A[i] выводится на экран со всеми знаками дробной части – 22.129873698751

A[i] выводится
в шесть символьных
позиций на экране,
две из них дробная часть (точность 0,01);
в третьей позиции справа – точка,
лишние позиции – пробелы _22.13

(B>=C) then D:=B;
If (C>=A) and (C>=B) then D:=C;
writeLn (d);
end.

Программа нахождения максимального из трех чисел.

and (a>=c) and (a>=d) and (a>=e) then write(a);
if (b>=a) and (b>=c) and (b>=d) and (b>=e) then write(b);
if (c>=a) and (c>=b) and (c>=d) and (c>=e) then write(c);
if (d>=a) and (d>=b) and (d>=c) and (d>=e) then write(d);
if (e>=a) and (e>=b) and (e>=c) and (e>=d) then write(e);
end.

Вопрос: как изменится программа, если чисел станет 10?
Вопрос: как изменится программа, если чисел станет 1000?

real; описание массива
i: integer; max : real;
begin
for i:=1 to 5 do
read( A[i] );
max:= A[1]; первый элемент объявляется max
for i:=2 to 5 do
if A[i] > max then max:= A[i];
write (‘max=‘ ,max:5:2); вывод max
end.

Ввод массива в цикле

В цикле от 2 до 5 - сравнение текущего элемента с max

Вопрос: как изменится программа, если чисел станет 10?

Вопрос: как изменится программа, если чисел станет 1000?

за каждый день недели.
1) Найти и вывести на экран максимальный курс(max) за неделю с точностью 0,01.
2) Найти и вывести на экран минимальный курс(min) за неделю с точностью 0,01.
3) Найти и вывести на экран среднее значение курса € за неделю с точностью 0,01. (Учебник СТР.111)