Question

Что демонстрирует данная операция?Что выйдет в конечном итоге? constN=25;vararr:array[1..N] of integer;i:byte;sum:integer;beginrandomize;for i:=1 to N beginarr [i]:=random (20)-5;write (arr[i]:4);end;writeLn;sum:=0;for i:=1 to N doif arr [i]>0 thensum:=sum+arr[i];writeLn (sum 5);end. ​

Answer 1

Решение представлено во вложении.

Язык: Pascal;

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

Answer 2

Данный код на псевдо-языке Pascal содержит ошибки и не скомпилируется. В нем использованы символы, которые не принадлежат синтаксису Pascal.

1. constN=25; - пробел между const и N недопустим. Правильно будет const N = 25;.

2. vararr:array[1..N] of integer; - пробел между var и arr недопустим. Правильно будет var arr: array[1..N] of integer;.

3. for i:=1 to N begin - пробел между begin и for недопустим. Правильно будет for i := 1 to N do begin.

4. if arr [i]>0 thensum:=sum+arr[i]; - здесь символ > является HTML-сущностью для символа "больше чем" (>), но в Pascal его нужно использовать непосредственно. Правильно будет if arr[i] > 0 then sum := sum + arr[i];.

5. writeLn (sum 5); - здесь пропущен оператор := для присвоения. Правильно будет writeln(sum);.

Исправленный код:

pascalCopy code
const
  N = 25;
var
  arr: array[1..N] of integer;
  i: byte;
  sum: integer;
begin
  randomize;
  for i := 1 to N do
  begin
    arr[i] := random(20) - 5;
    write(arr[i]:4);
  end;
  writeln;
  sum := 0;
  for i := 1 to N do
  begin
    if arr[i] > 0 then
      sum := sum + arr[i];
  end;
  writeln(sum);
end.

Этот код создает массив arr из 25 случайных чисел в диапазоне от -5 до 14, выводит их на экран, а затем находит сумму положительных чисел в массиве и выводит эту сумму.