25 составьте блок-схему и программу к следующей : запрашиваются два числа. если больше первое число, те вычисляется их сумма, а если второе больше первого, то разность, а если они равны, то произведение. 25 (блок-схему можно не делать)
Const m=5; n=6; var a:array[1..m,1..n] of integer; i,j,max,imax,jmax,min,imin,jmin:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end; max:=a[1,1]; imax:=1; jmax:=1; min:=a[1,1]; imin:=1; jmin:=1; for i:=1 to m do for j:=1 to n do begin if a[i,j]>max then begin max:=a[i,j]; imax:=i; jmax:=j; end; if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end; end; writeln('max = a[',imax,',',jmax,'] = ',max); writeln('min = a[',imin,',',jmin,'] = ',min); a[imax,jmax]:=min; a[imin,jmin]:=max; writeln('Полученный массив:'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:4); writeln; end; end.
var a: array[1..100] of real; i, n: integer; t, sum: real;
begin {ввод массива} if handsfree then n := random(20) + 5 else begin write('n = '); readln(n); end;
writeln('Данные массива:'); for i := 1 to n do begin if handsfree then begin a[i] := random(100); write(a[i], ' '); end else readln(a[i]); end; writeln();
{подсчет элементов} write('k = '); readln(t); sum := 0; for i := 1 to n do if a[i] < t then sum := sum + a[i]; writeln('sum = ', sum); end.
Program TwoNumbers;
Var a,b: integer;
Begin
ReadLn(a,b);
If a>b then WriteLn(a+b);
If a<b then WriteLn(b-a);
If a=b then WriteLn(a*b)
End.