Question

Срочно в Паскаль.ABC.Net.
Задание:
Пользователь вводит число n. Нужно составить массив, в котором записаны n первых четных чисел.
Если пользователь ввел 4, то нужно составить массив, в котором числа 2 4 6 8​

Answer 1

Ответ:

program even_numb_in_the_array;

var i,j,n,m:integer;

a:array [1..10000] of integer;

k:real;

label 10;

begin

10: j:=0;

Writeln ('введите любое целое число число до 100');

 Read (n);

 for i:=1 to 10000 do

 begin

   a[i]:=i;  

   k:=i mod 2;

   if k=0 then

     begin

     j:=j+1;

   a[j]:=a[i];

end;

 end;

for j:=1 to  n do

Write (a[j],' ');

Writeln();

Writeln ('Будете работать с программой снова 1 - да, любая цифра - нет');

Read (m);

if m=1 then goto 10;

end.

Объяснение: