Алгоритмы и программы. Афанасьева Т. В - 125 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

125
while not Eof(f) do {проверка на конец файла}
begin
read(f,c); {считывание из файла всех чисел}
write(c:4);
end;
seek (f,11); {установка файла на 12 позицию}
writeln ('полученный массив А ');
for i:=1 to 10 do
begin
read(f,c); {чтение из файла}
if c<=0 then
begin
a[i]:=c;
write (a[i],' ');
end;
if filepos(f)=20 then
begin
j:=i;
i:=10;
end;
end;
seek(f,0); {установка в начало файла}
for i:=j–3 to 10 do
begin
read (f,a[i]); {чтение из файла}
write (a[i],' ');
end;
readln;
close (f); {закрытие файла}
end.
Задания для самостоятельного выполнения
1. Дан массив целых чисел а1,...,аn. Сформировать массив В из поло-
жительных элементов массива А.
2. Дан массив действителных чисел a1,...,an. Получить количество
отрицательных элементов массива и пpоизведение элементов, принад-
лежащих отрезку [с,в].
3. Дан массив целых чисел a1,...,an. Найти в нем все пары аi,ai+1, такие, что
ai<=3 и ai+1<0. Распечатать их значения
, номеpа, если таких паp нет, то
выдать сообщение.
4. Дан массив целых чисел a1,...,an. Найти в данной последовательности
все пары аi,ai+1, такие, что ai=0 и ai+2 кратно 2.

Страницы