1. Исправить ошибки. Дан целочисленный одномерный массив. Есть ли в нем отрицательный элемент? (8 ошибок). Program Школа;
Const n=10;
Var X: [1..n] Of Integer;
i, k: real;
Begin
For i:=1 To n Do Readln (X[i]); {ввод массива}
k:= 0
For i:=1 To n Do
If X[i] 0 Then k:= k - 1;
If k 0 Then Writeln (‘yes’);
Else Writeln (‘no’);
Readln
!

henrycarbone    3   23.12.2021 05:51    3