Question

Найдите ошибки и запишите фрагмент программы без них.
Программа ищет отрицательные элементы последовательности А вычисляет их количество и заменяет их на значение их модулей.

For i:=1 to 50
If A[i]<0
Then A[i]:=absA[i];
K:=K+1;
End

Answer 1

Программа:

Pascal:

for i := 1 to 50 do

   if A[i] < 0

       then begin A[i] := abs(A[i]);

       K := K + 1;

End;

Объяснение:

Предоставлен рабочий фрагмент программы, а ошибки выделены полужирным:

1. В первой строке не хватало "do".
2. В третьей строке не хватало слова "begin" после слова then, потому что выполнится более одного действия.
3. В третьей строке не хватало скобок у функции abs().
4. В пятой строке не хватало точки с запятой после "end".