Var a: array [1..10] of byte; i, k, n, t, x, max: byte; //процедура вывода массива procedure WriteA(); var i : byte; begin for i := 1 to 10 do begin write(a[i], chr(32)); end; writeln(); end; //основная процедура begin Randomize; for i := 1 to 10 do begin a[i] := random(100); end; WriteA(); writeln(''); n := 10; while n > 1 do begin for i := n downto 1 do begin if a[i] > max then begin max := a[i]; x := i end; end; t := a[n]; a[n] := max; a[x] := t; dec(n); max := 0; WriteA(); end; writeln(''); WriteA(); end.
- Pascal ABC.NET, массив из 10 случайных чисел до 100 типа byte - Результат работы программы следующий:
Решение на паскаль. начало решения задач одинаковое, а дальше см. внизу
program xxx; var b: array [1..6, 1..6] of integer; i, j, s : integer; begin for i:= 1 to 6 do for j:=1 to 6 do b[i,j]:= random(131)-65; writeln ('исходная матрица В:'); for i:=1 to 6 do begin for j:=1 to 6 do write (b[i,j]:4); writeln end;
задание 1. s:=0; for i:= 1 to 6 do if b[i,3]>0 then s:=s+b[i,3]; writeln ('сумма положительных элементов 3-го столбца', s) end.
задание 2. i:=2; while i<=6 do begin for j:= 1 to 6 do if b[i,j]<0 then b[i,j]:=0; i:=i+2 end; writeln ('полученная матрица В:'); for i:=1 to 6 do begin for j:=1 to 6 do write (b[i,j]:4); writeln end end.
x,y:real;
begin
Write('x='); Read(x);
y:=(3.2*sin(x)+sqrt(1+x))/abs(5);
Writeln('y=',y)
end.