Ответы
Ответ дал:
0
var
a:array[1..10]of longint;
n,m,k,i,l:longint;
begin
k:=maxlongint;
for i:=1 to 3 do read(a[i]);
for i:=1 to 3 do if (a[i]>0) and (a[i]<k) then k:=a[i];
writeln(k);
readln;
end.
a:array[1..10]of longint;
n,m,k,i,l:longint;
begin
k:=maxlongint;
for i:=1 to 3 do read(a[i]);
for i:=1 to 3 do if (a[i]>0) and (a[i]<k) then k:=a[i];
writeln(k);
readln;
end.
Ответ дал:
0
спасибо
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад