Информатика. Часть 1. Мойзес О.Е - 115 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

115
Конец
Вывод dmax,n
dmax=d[1]
Начало
Ввод
d
i
i = 2,10
dmax=d
i
n=i
d
i
>dmaxда
нет
Program Max;
var d:array[1..10]of
real;
dmax:real;
i,n:integer;
Begin
for i:=1 to 10 do
readln(d[i]);
dmax:=d[1];
for i:=2 to 10 do
if d[i]>dmax then
begin
dmax:=d[i];
n:=i
end;
writeln(’dmax=’,
dmax:10:3,’ n=’,n:3);
End.
В том случае, когда
не требуется нахождение самого значения
максимального (минимального) элемента массива, а требуется
определить только его номер, алгоритм поиска номера будет
следующий:
Nmax:=1;
For i:=2 to 10 do
if d[i]> d[Nmax] then Nmax:= i;
Нахождение количества чисел

Страницы