Одномерный массив

[murzic28]

Помогите пожалста с задачей??? Подсчитать количество положительных и количество четных чисел массива А13. Массив А вывести на экран. Заранее большое спасибо.

[ROMA2PVT]

pol:=0;
chet:=0;
for i:=1 to 13 do
begin
if a[i]>0 then
begin
inc(pol);
end;
if a[i] mod 2=0 then
begin
inc(chet);
end;
end;
вывод кол-ва чётных и положительных.

[murzic28]

А это разве в паскале?

начинаться же должно с program? вроде

[Ol'ga_new]

program не обязательно, а вот переменные описать нужно, это только основная часть программы ещё в конце нужно организовать вывод...

[Пепел Феникса]

ну добавьте program <имя проги>, что трудно чтоли?
язык определяется больше синтаксисом, а не каким то словом, которое могли и не написать.

[murzic28]

Это я добавлю. ну тут сказали вывод нужно организовать.если нету мозгов на такое ! ! ! мне полностью программа нужна. поэтому я и пришла за помощью сюда, мне бы еще вести правильно

[Stilet]

Автору для копипасте:

  var a:array[1..13] of integer;i,p,pp:integer;
begin
 for i:=1 to 13 do begin
  a[i]:=20-random(40);write(a[i]:5);
  if a[i] mod 2=0 then inc(pp);
  if a[i]>0 then inc(p);
 end;
 writeln;
 write(p:5,pp:5);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[murzic28]

201 Ошибку выдает не получается

[murzic28]

Я все ввела, как ты сказал. печатать то я умею , не волнуйся ! ! !

[Ol'ga_new]

Всё работает и зачем печатать когда готовый вариант для копирования? Только если слова благодарности!