var A:array[1..n,1..m] of real; i,j: integer; max: real; begin writeln('матрица A(5x5)'); {Считываем матрицу с экрана} for i:=1 to n do for j:=1 to m do begin write ('A[ ',i,',',j,' ] = '); readln (A[i,j]); end; {Присваиваем минимальное значение максимуму} max:=0; for i:=1 to n do for j:=1 to m do {Если в матрице число больше максимума - присваиваем максимуму значение из матрицы} if (a[i,j]>max) then max:=a[i,j];
{Если максимум не 0 - значит в матрице есть положительные числа, выводим максимум} if max>0 writeln ('max= ',max) else Writeln('Положительных элементов нет'); end.
Program Pas02; uses Crt; const n=20; var a:array[1..n] of real; i,k:integer; t:real; begin Randomize; ClrScr; Writeln('Массив случайных чисел'); k:=0; for i:=1 to n do begin a[i]:=Random(31)-15.0; Write(a[i]:6:1); if a[i]=10.0 then Inc(k) end; Writeln; Writeln('Количество элементов, равных 10: ',k); Write('Нулевые элементы '); k:=0; for i:=1 to n do if a[i]=0 then begin Inc(k); Write(i,' ') end; if k=0 then Writeln('отсутствуют') else Writeln; Writeln('Меняем местами элементы 3 и 6'); t:=a[3]; a[3]:=a[6]; a[6]:=t; for i:=1 to n do Write(a[i]:6:1); Writeln end.
Тестовое решение Массив случайных чисел 2.0 -12.0 8.0 -2.0 -1.0 3.0 -12.0 -9.0 3.0 9.0 -8.0 0.0 -7.0 -4.0 -12.0 10.0 9.0 5.0 -8.0 6.0 Количество элементов, равных 10: 1 Нулевые элементы 12 Меняем местами элементы 3 и 6 2.0 -12.0 3.0 -2.0 -1.0 8.0 -12.0 -9.0 3.0 9.0 -8.0 0.0 -7.0 -4.0 -12.0 10.0 9.0 5.0 -8.0 6.0
1.Основные объекты слайда - фон -является обязательным
Основной текст, дополнительный текст
2.Использование кнопки Панели быстрого запуска или Рабочего стола
Или Пуск-Программы-Microsoft PowerPoint.
3.Панели инструментов, панели форматирования, панель "Дизайн слайда", панель "Разметка"