Question

Можете проверить,а если не правильно,то исправить ? var a:array [1..10] of integer; i:integer; begin for i:= 1 to 10 do readln (a[i]);239 if a[i]>17 then; writeln (a[i]); end.само задание:. Подсчитать количество элементов массива > 17. Массив из 10 элементов.

Answer 1

var

 a: array [1..10] of integer;  

 i, kol: integer;

begin

 kol := 0;

 for i := 1 to 10 do  

 begin

   readln(a[i]);

   if a[i] > 17 then kol += 1;  

 end;

 writeln(kol);

end.

Answer 2

Конечно, давайте исправим код и выполним задание. Вам необходимо подсчитать количество элементов массива, которые больше 17. Вот исправленный код на языке Pascal:

pascalCopy code
program CountElementsGreaterThan17;

var
  a: array[1..10] of integer;
  i, count: integer;

begin
  count := 0;

  // Вводим значения в массив
  for i := 1 to 10 do
    readln(a[i]);

  // Подсчитываем количество элементов > 17
  for i := 1 to 10 do
  begin
    if a[i] > 17 then
      count := count + 1;
  end;

  // Выводим результат
  writeln('Количество элементов массива > 17: ', count);
end.

Исправления, которые были сделаны:

1. Убрана цифра "239", которая была написана случайно.
2. Добавлено объявление переменной count, которая будет использоваться для подсчета количества элементов больше 17.
3. В первом цикле for значение i необходимо увеличивать с 1 до 10, чтобы вводить элементы массива.
4. Во втором цикле for проверяется каждый элемент массива a[i] на условие a[i] > 17, и если оно выполняется, увеличивается значение count.
5. После цикла выводится результат подсчета count.

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