Написать программу, осуществляющую заполнение массива элементами последовательности 1,3,5,7,...

@Ольга456 · Регистрация: 28.05.2013

Написать программу, осуществляющую заполнение и вывод на экран массива состоящего из 10 элементов последовательностью 1,3,5,7,...

@Puporev · 28.05.2013, 19:10

Pascal

for i:=1 to 10 do
 begin
  a[i]:=2*i-1;
  write(a[i],' ')
 end;

@Ольга456 · 28.05.2013, 19:23 **[ТС]**

а если из 10 элементов последовательностью 4,7,13,25,... то как?

@Puporev · 28.05.2013, 19:37

Вроде так

Pascal

uses crt;
var a:array[1..10] of integer;
    i,k,m:integer;
begin
k:=4;
m:=3;
for i:=1 to 10 do
 begin
  write(k,' ');
  k:=k+m;
  m:=m*2
 end;
end.

@Ольга456 · 28.05.2013, 19:40 **[ТС]**

большое вам спасибо

@Ольга456 0 / 0 / 1 Регистрация: 28.05.2013 Сообщений: 40
		1
	Написать программу, осуществляющую заполнение массива элементами последовательности 1,3,5,7,... 28.05.2013, 19:01. Показов 10137. Ответов 4 Метки нет (Все метки) Написать программу, осуществляющую заполнение и вывод на экран массива состоящего из 10 элементов последовательностью 1,3,5,7,... 0

@Ольга456 0 / 0 / 1 Регистрация: 28.05.2013 Сообщений: 40
	28.05.2013, 19:23 [ТС]	3
	а если из 10 элементов последовательностью 4,7,13,25,... то как? 0

@Ольга456 0 / 0 / 1 Регистрация: 28.05.2013 Сообщений: 40
	28.05.2013, 19:40 [ТС]	5
	большое вам спасибо 0

Опции темы