Var ar:array[1..5] of integer; i:integer; s:real; begin; for i:=1 to 5 do begin; readln(ar[i]); s:=s+ar[i]; end; s:=s/5; writeln('Среднее арифметическое:',s); writeln('Result:'); for i:=1 to 5 do if ar[i]>s then write(ar[i]:4); end.
uses Crt; const n=20; type Mas=array [1..n, 1..n] of integer; var A: Mas; i,k, Sum: integer; begin ClrScr; Sum:=0; for i:=1 to n do begin for k:=1 to n do begin if i>k then begin A[i,k]:=1; Sum:=Sum+A[i,k]; end else begin A[i,k] :=-1; Sum:=Sum+A[i,k]; end; Write(A[i,k]:3); end; WriteLn; end; WriteLn; WriteLn(' Sum = ',Sum); ReadLn; end.
Эта программа симметрично относительно главной диагонали заполняет массив единичками с плюсом или минусом и считает сумму диагональных элементов. Если n=20, то Sum = -20 Если n = 100, то Sum = - 100 ПРАВИЛЬНЫЙ ОТВЕТ: 3) - 100
uses Crt; const n=20; type Mas=array [1..n, 1..n] of integer; var A: Mas; i,k, Sum: integer; begin ClrScr; Sum:=0; for i:=1 to n do begin for k:=1 to n do begin if i>k then begin A[i,k]:=1; Sum:=Sum+A[i,k]; end else begin A[i,k] :=-1; Sum:=Sum+A[i,k]; end; Write(A[i,k]:3); end; WriteLn; end; WriteLn; WriteLn(' Sum = ',Sum); ReadLn; end.
Эта программа симметрично относительно главной диагонали заполняет массив единичками с плюсом или минусом и считает сумму диагональных элементов. Если n=20, то Sum = -20 Если n = 100, то Sum = - 100 ПРАВИЛЬНЫЙ ОТВЕТ: 3) - 100
i:integer;
s:real;
begin;
for i:=1 to 5 do
begin;
readln(ar[i]);
s:=s+ar[i];
end;
s:=s/5;
writeln('Среднее арифметическое:',s);
writeln('Result:');
for i:=1 to 5 do
if ar[i]>s then write(ar[i]:4);
end.