Предмет:
ИнформатикаАвтор:
jadondixpАвтор:
rumplestiltskinfns2Автор:
jonahАвтор:
casemaocАвтор:
shaniaАвтор:
shannonconst
N = 20;
var
a, b: array[1..N] of integer;
i, k: integer;
begin
Randomize;
for i := 1 to N do
begin
a[i] := 10 + Random(90);
Write(a[i]:3);
end;
Writeln;
k := 1;
for i := 1 to N - 1 do
begin
if a[i] < a[N] then
begin
b[k] := a[i];
Write(b[k]:3);
k += 1
end;
end;
end.
Автор:
karliДобавить свой ответ
Предмет:
Русский языкАвтор:
trooperОтветов:
Смотреть
Предмет:
Русский языкАвтор:
danikapopeОтветов:
Смотреть
Предмет:
Немецкий языкАвтор:
zackarymoranОтветов:
Смотреть