Var g1, g2, g3: real; begin writeln('Введи три числа: '); readln(g1, g2, g3); if not ((g1 = 9.8) or (g2 = 9.8) or (g3 = 9.8)) then Writeln('Нет среди этих чисел ускорения на Земле') else begin if g1 = 9.8 then Writeln('Первое - ускорение на Земле'); if g2 = 9.8 then Writeln('Второе - ускорение на Земле'); if g3 = 9.8 then Writeln('Третье - ускорение на Земле'); end; end.
var a:array [1..9] of real; i,k:integer; j:real; begin randomize; writeln('Массив:'); for i:=1 to 9 do begin a[i]:=(random(410)+100)/10; write(a[i],' '); end; writeln; writeln('Массив после увелечения минимального элемента на 100:'); k:=1; for i:=2 to 9 do if a[i]<a[k] then k:=i; a[k]:=a[k]+100; for i:=1 to 9 do write(a[i],' '); writeln; writeln('Массив после престановки максиального элемента с первым:'); j:=a[1]; a[1]:=a[k]; a[k]:=j; for i:=1 to 9 do write(a[i],' '); writeln; end.
3 задание var a:array [1..10] of integer; i,mn,mx:integer; begin writeln('Введите массив:'); for i:=1 to 10 do readln(a[i]); mn:=1; mx:=1; writeln('Массив'); for i:=1 to 10 do begin if a[i]<a[mn] then mn:=i; if a[i]>a[mx] then mx:=i; write(a[i],' '); end; i:=a[mx]; a[mx]:=a[mn]; a[mn]:=i; writeln; writeln('Массив после престановки:'); for i:=1 to 10 do write(a[i],' '); writeln; end.
const g = 9.8;
begin
if ReadSeqReal(3).Where(x -> (x >= g - 0.2) and (x <= g + 0.2)).Any
then write('YES')
else write('NO')
end.