Заполнить массив числами: -7 14 -21 28 -35 42... Вывести их на экран до k-ого элемента включительно(k вводится с клавиатуры, k меньше =100) На Паскале
Заполнить массив числами:
-7 14 -21 28 -35 42...
Вывести их на экран до k-ого элемента включительно(k вводится с клавиатуры, k<=100)
На Паскале
Ответ(ы) на вопрос:
Гость
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
const n=100;
var
a:array[1..n] of integer;
i,k:integer;
begin
writeln('Введите k');
readln(k);
for i:=1 to k do begin
if i mod 2 <> 0
then a[i] := -i*7
else a[i]:=i*7;
write(a[i]:5);
end;
end.
Не нашли ответ?
Похожие вопросы