Предмет: Информатика,
автор: bad5712
Срочно в Паскаль.ABC.Net.
Задание:
Пользователь вводит число n. Нужно составить массив, в котором записаны n первых четных чисел.
Если пользователь ввел 4, то нужно составить массив, в котором числа 2 4 6 8
Ответы
Автор ответа:
0
Ответ:
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.
Объяснение:
ssroman72:
в восьмую строку поставить Writeln ('введите любое целое число число до 10000'); вместо 100
Похожие вопросы
Предмет: Русский язык,
автор: strizka
Предмет: Английский язык,
автор: avetik1974
Предмет: Русский язык,
автор: pyshoc2013
Предмет: Алгебра,
автор: АртёмККК