Const
N=30;
Var
A:array[0..N+1]of integer;
i,j:integer;
Begin
For i:= 1 to N do
A[i]:=random(-7,7);
A[0]:=1;
A[N+1]:=2;
For i:= 1 to N do
Begin
Write(A[i],' (',i,'), ');
For j:= 1 to N do
if i<>j then
if A[i]+A[j]<A[A[0]]+A[A[N+1]] then
Begin
A[0]:=i;
A[N+1]:=j
End;
End;
WriteLn;
WriteLn(A[0], ' , ',A[N+1]);
End.
Program faceyourseif;
var x,k,i:integer;
g:boolean;
begin;
x := Random(100);
writeln(x);
writeln('Компьер загадал число от 0 до 100');
writeln('Попробуйте его угадать');
repeat
writeln('Введите число');
read(k);
if k > x then
writeln('Не угадали! Загаданное число меньше');
if k < x then
writeln('Не угадали! Загаданное число больше');
if k = x then begin;
writeln('Поздравляю,вы угадали!');
g:=true;
end;
i:=i+1;
until g or (i=3);
end.
program dva_chisla;
var
a,b,s,p,v:real;
Begin
Writeln('Введите два числа');
Readln(a,b);
s:=a+b;
writeln('Сумма чисел ',a,' + ',b,' = ',s);
v:=a-b;
writeln('Разность чисел ',a,' - ',b,' = ',v);
p:=a*b;
writeln('Произведения чисел ',a,' * ',b,' = ',p);
End.
Модель планеты- глобус
Модель машины- уменьшеная копия машины
Модель солнечной системы