составьте программу заполнения массива. Created by kan7607. informatika-ru

составьте программу заполнения массива...

Sandborn program mas;
var a:array[1..10] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 10 do
begin
a[i]:=p;
p:=p+2;
writeln (p);
end;
end.

0 votes Thanks 1

bоtsman Turbo Pascal
1)USES CRT;
VAR A:array[1..10] of integer;
i:integer;

BEGIN
CLRSCR;
For i:=1 to 10 do
  begin
A[i]:=i+i+1;
Write(A[i],' ');
  end;

READLN;
END.

2)
USES CRT;
VAR A:array[1..10] of integer;
  i:integer;

BEGIN
CLRSCR;
For i:=1 to 10 do
begin
  A[i]:=i+i+i;
  Write(A[i],' ');
end;

READLN;
END.

0 votes Thanks 0

Answers & Comments

Составьте программу, которая заполняет массив a[1..10] случайными целыми числами...

помогите придумать сочинение на тему"что такое свобода" или хотя бы натолкнуть н...

Надо ли запятая после однако? И если да то почему? Однако после прочтения, мы по...

это прямое или переносное значение слова?....охотно принял бы к себе на службу...

Обозначьте корень в словах. Подчеркните согласные, которые чередуются...

Надо ли запятая после Арины Власьевны и если надо то почему? Евгений Базаров выр...

Во сколько раз светимость Солнца больше белого карлика Сириус В, если его светим...

Составить программу, которая меняет два введённых слова местами, и при необходим...

как узнать какой высший оксид у элемента?Например у меди...

Х^5-х^4-2х^3+2х^2-3х+3=0 как это решить?...

рекомендуемые вопросы

Helpful Links

Helpful Social