// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqRandom(ReadInteger('n='),1,99).Println
end.
<u><em>Тестовое решение:</em></u>
n= 30
8 39 37 3 4 57 33 31 44 12 32 80 14 19 73 64 81 82 36 6 48 12 84 81 6 66 36 51 40 69
Uses Crt;
Const
N = 3;
M = 4;
Var
A,B:array[1..N,1..M] of real;
i,j:integer;
Min,Max:real;
Begin
ClrScr;
Randomize;
Min:=1;
Max:=1;
WriteLn('Массив B:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
B[i,j]:=random(20)+1;
Write(B[i,j]:3,' ')
End;
WriteLn
End;
Max:=B[1,1];
Min:=B[1,1];
For i:= 1 to N do
For j:= 1 to M do
Begin
if B[i,j] > Max then Max:=B[i,j];
if B[i,j] < Min then Min:=B[i,j];
End;
WriteLn('Min(B) = ',Min);
WriteLn('Max(B) = ',Max);
WriteLn('Массив A:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=(2*B[i,j]+Min)/Max;
Write(A[i,j]:6:3,' ');
End;
WriteLn
End;
ReadLn
End.
Кабель, воздух, вода(больше и не знаю)
Var
i: integer;
s: real;
begin
i := 2;
while(i <= 100) do
begin
//writeln(i, '/', i + 1);
s := s + (i / (i + 1));
i := i + 2;
end;
write(s);
end.
vvvvvvvvvvvvvvvvvvvvvvv
Точно не уверен но вроде так:
var
s:real;
begin
writeln ('Введите сумму покупки: ');
readln(s);
if s>1000 then
begin
writeln('Сумма покупки с учётом скидки: ',s*0.9:0:2,' руб.');
end
else
writeln('Сумма покупки: ',s:0:2,' руб.');
end.