Автор: Гость_Роман 30.01.2005 7:46
1 Дана последовательность натуральных чисел а1,а2,... ,аn. Создать массив из чётных чисел Этой последовательности. Если таких чисел нет, то вывести сообщение об этом факте.
2 Последовательность действительных чисел оканчивается нулём. Найти количество членов этой последовательности.
3 Дана последовательность чисел а1,а2,... ,аn. Указать наименьшую длину числовой оси,
содержащую все эти числа.
Автор: klem4 30.01.2005 13:42
1)
Код
uses crt;
const n=5;
var x,y:array[1..n] of integer;
i,m:integer;
Begin
clrscr;
m:=0;
for i:=1 to n do
begin
readln(x[i]);
if x[i] mod 2 = 0 then
begin
inc(m);
y[m]:=x[i];
end;
end;
writeln;
if m=0 then
writeln('NO')
else
for i:=1 to m do
writeln(y[i]);
readln;
end.
Поиск и FAQ вам помогут.
Автор: klem4 30.01.2005 13:47
2) смотри тут, хочешь массивом, хочешь без (решение Volvo в самом низу): http://forum.pascal.net.ru/forum/index.php?showtopic=3824
см. Задача N1.
очень похожа
Автор: klem4 30.01.2005 18:25
3) не очень понял уловие.
Код
uses crt;
const n=5;
var x:array[1..n] of integer;
min,max:integer;
i:integer;
Begin
clrscr;
for i:=1 to n do
readln(x[i]);
min:=1;
max:=1;
for i:=2 to n do
begin
if x[i]>x[max] then
max:=i;
if x[i]<x[min] then min:=i;
end;
writeln('Otrezok ot ',x[min],' do ',x[max]);
writeln('Ego dlinna = ',x[max]-x[min]);
readln;
end.