begin Write('Введите через пробел три любых числа: '); Readln(a[1], a[2], a[3]); for i := 1 to 3 do if (a[i] >= 1.6) and (a[i] <= 3.8) then Writeln(a[i]) end.
Введите через пробел три любых числа: 13.43 2.41 -1.34 2.41
Const n=10; m=5; var a:array[1..n,1..m+1] of integer; i,j,k,sp,s:integer; begin Randomize; writeln(' Результаты соревнований'); for i:=1 to n do begin s:=0; for j:=1 to m do begin a[i,j]:=random(50)+50; write(a[i,j]:4); s:=s+a[i,j]; end; a[i,m+1]:=s; writeln(s:5); end; write('k='); readln(k); sp:=0; for i:=1 to n do if a[i,m+1]>=k then sp:=sp+1; writeln('sp=',sp); end.
a: array[1..3] of real;
i, n: integer;
begin
Write('Введите через пробел три любых числа: ');
Readln(a[1], a[2], a[3]);
for i := 1 to 3 do
if (a[i] >= 1.6) and (a[i] <= 3.8) then Writeln(a[i])
end.
Введите через пробел три любых числа: 13.43 2.41 -1.34
2.41