Составители:
Рубрика:
62
if A[i] > max then max:= A[i] ;
if A[i] < min then min:= A[i];
end;
{вывод максимума и минимума}
Writeln('max= ', max, ' min= ‘ , min);
end.
Задача. Элементы массива вводятся с клавиатуры, за-
менить в нем все отрицательные элементы их квадратами, а
положи-тельные - кубами. Вывести на экран исходный и новый
масси-вы.
program p19;
const
n = 10;
Var
А, В: array[ 1.. n] of real;
i: integer;
begin
{ввод элементов массива}
Writeln(‘введите элементы массива, ‘ , n, ‘ элементов');
for i:= 1 to n do Read (A [i] );
B:=A; {запомнили исходный массив }
For i:= 1 to n do
if A[i] < 0 then A[i] := sqr(A[i])
else if A[i] > 0 then A[i] := sqr (A[i] ) * A[i] ;
{вывод элементов массивов}
Writeln('Исходный массив: ') ;
for i:= 1 to n do Write (B[i] : 8: 4) ;
Writeln;
Writeln('Новый массив: ');
for i:= 1 to n do Write(A[i]: 8: 4) ;
18.2 Сортировка одномерного массива
Сортировкой называют набор операций, упорядочи-
вающий массив в соответствии с индексами, на множестве
if A[i] > max then max:= A[i] ; if A[i] < min then min:= A[i]; end; {вывод максимума и минимума} Writeln('max= ', max, ' min= ‘ , min); end. Задача. Элементы массива вводятся с клавиатуры, за- менить в нем все отрицательные элементы их квадратами, а положи-тельные - кубами. Вывести на экран исходный и новый масси-вы. program p19; const n = 10; Var А, В: array[ 1.. n] of real; i: integer; begin {ввод элементов массива} Writeln(‘введите элементы массива, ‘ , n, ‘ элементов'); for i:= 1 to n do Read (A [i] ); B:=A; {запомнили исходный массив } For i:= 1 to n do if A[i] < 0 then A[i] := sqr(A[i]) else if A[i] > 0 then A[i] := sqr (A[i] ) * A[i] ; {вывод элементов массивов} Writeln('Исходный массив: ') ; for i:= 1 to n do Write (B[i] : 8: 4) ; Writeln; Writeln('Новый массив: '); for i:= 1 to n do Write(A[i]: 8: 4) ; 18.2 Сортировка одномерного массива Сортировкой называют набор операций, упорядочи- вающий массив в соответствии с индексами, на множестве 62
Страницы
- « первая
- ‹ предыдущая
- …
- 60
- 61
- 62
- 63
- 64
- …
- следующая ›
- последняя »