Question

И снова я, и снова мой любимый Паскаль.. Дан массив, состоящий из целых чисел. Напишите программу, которая подсчитывает количество положительных чисел среди элементов массива. Входные данные Сначала задано число N — количество элементов в массиве (1 Выходные данные Необходимо единственное число - количество положительных элементов в массиве. Написал: program u1; var i,n,k:longint; a:array[1..10000] of longint; begin readln(n); for i:=1 to n do readln (a[i]); for i:= 1 to n do write( 'a[i]=',a[i],' ');writeln; for i:= 1 to n do begin if a[i]>0 then k:=k+1;end; writeln(k); end. но тем не менее, решено не правильно. Пожалуйста, посмотрите.

Answer 1

Program qq;
var col, out, i: integer;
arr: array[1..100] of integer;
begin
write('Количество элементов: ');
readln(col);
write('Введите числа: ');
out := 0;
for i := 1 to col do readln(arr[i]);
writeln;
write('Положительных чисел: ');
for i := 1 to col do begin
if(arr[i] > 0) then out := out + 1;
end;
write(out);
end.
-----
В вашем же решении вы не указали переменную k, т.е. у вас нет k := 0; и после выполнения условия if не нужно писать end;

Answer 2

Программа, которую вы предоставили, содержит несколько ошибок. Вот исправленный вариант вашей программы на языке Паскаль:

pascalCopy code
program u1;

var
  i, n, k: longint;
  a: array[1..10000] of longint;

begin
  readln(n);
  for i := 1 to n do
    readln(a[i]);

  k := 0;
  for i := 1 to n do
  begin
    if a[i] > 0 then
      k := k + 1;
  end;

  writeln(k);
end.

Исправления включают:

1. Замена writeln на readln для чтения значений элементов массива.
2. Инициализация переменной k в начале программы (k := 0).
3. Удаление лишней строки вывода writeln(k);.

Теперь программа должна корректно считывать массив и подсчитывать количество положительных чисел среди его элементов.