Помогите пожалуйста! надо написать программу в паскале

вот задание:

Заполнить массив К, состоящий из 22 элементов таким образом:

все элементы, имеющие индексы кратные 3 равны 2*i+7, остальные равны индексу.

Массив вывести на экран вектором.

1

Ответы и объяснения

Лучший Ответ!
  • Kitsu
  • почетный грамотей
2013-01-22T21:50:43+04:00

var k:array[1..22]of integer;
i:integer;
begin
for i:=1 to 22 do
if i mod 3=0 then k[i]:=2*i+7 else k[i]:=i;
for i:=1 to 22 do write(k[i],' ');
end.