FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть
Tmax:=T[1]; k:=1;
For i:=2 to N do
begin
if T[i]>Tmax then
begin
k:=i;
Tmax:=T[i];
end;
end;
writeln(‘ Tmax= ',Tmax, k:3,’ -ий№’);
End.
Поменяем местами найденное максимальное значение и первое значение массива, распечатаем полученный массив.
Пример M_O_3
конец
Пример M_O_3Perv
Этот прием можно положить в основу задачи сортировки массива
program M_O_4sor;
uses crt;
Var
T:array[1..365] of real;
k,N,i ,j: integer;
Tmin :real;
Begin
Write( ‘Введите количество дней ‘ );
Readln (N);
textcolor(1);
For k:=1 to N do
begin {заполнение и печать в одном цикле}
T[k] := -20 + Random(41);
Writeln(k:3,T[k]:9:1);
end;
2 часть задачи - обработка массива показана далее
1 часть задачи - описание и заполнения массива
For j:=1 to N do
{3 часть задачи - вывод нового массива}
For k:=1 to N do Writeln(k:3,T[k]:9:1);
End.
Пример M_O_4