Массив

[Evgenii_95]

дан массив состоящий из n элементов нужно вывести квадрат нечетных чисел

[min@y™]

Сессия близко?

[Evgenii_95]

Даже очень!Так что помоги лучше а то действительно придется с военкоматом знакомиться!

[min@y™]

Сообщение от Evgenii_95

Даже очень!Так что помоги лучше а то действительно придется с военкоматом знакомиться!

Женя, ты мне угрожаешь?

[Evgenii_95]

прошу помощи в решение задачи

[Stilet]

Что-то вроде такого:

program Project1;
const n=40;
  var i,kv:integer; a:array[1..n] of integer;
begin
 for i:=1 to n do begin
   a[i]:=i+2;
   if (a[i] mod 2)<>0 then begin
     write(a[i]*a[i]:8); if (i mod 5)=0 then writeln;
   end;
 end;
 readln;
end.

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

[min@y™]

прошу помощи в решение задачи

Не можешь сделать такую элементарщину? Дальше-то будут гораздо круче задачи.
Иди-ка ты лучше в армию. Так аццкий недобор. Пошлют тебя куданить на Сахалин, красота!!! Природа, рыбалка, тихий океан!... Комары размером со спичечный коробок... Какой же кайф!!!

[Evgenii_95]

Спасибо за помощь!Да и прапор думаю одобрит такой код)

[min@y™]

Да и прапор думаю одобрит такой код

Чо за прапор?

[Stilet]

Да и прапор думаю одобрит такой код)

Ой, забыл сказать - там в коде одна... Ну в общем ты уж сам ее найдешь и разберешься, ведь верно? Прапора же не подведешь, боец? )