Question

Исправьте ошибку в программе program 1cl; var a:array[1..50] of integer; i,j,k,s:integer; begin randomize; for i=1 to 50 do begin a(i):=rondom(50)-20; write(a[i],'); end; for i:=1 to 50 do; begin if a [i]0 then k:=k+1; if a[i]then s :=s+a[i]; end; writeln(k=,k); writeln('s=',s); readln; end.

Answer 1

Program cl;
var a:array[1..50] of integer;
i,k,s:integer;
begin
randomize;
for i:=1 to 50 do
begin
a[i]:=random(50)-20;
write(a[i],' ');
end;
writeln;
for i:=1 to 50 do
begin
if a[i]>0 then k:=k+1;
if a[i]<0 then s:=s+a[i];
end;
writeln('k=',k);
writeln('s=',s);
readln;
end.

Answer 2

Я синтаксис этого старя уже не помню но в строке a(i):=rondom(50)-20; скорее всего должно быть a[i]:=rondom(50)-20; 

Answer 3

The program you provided seems to have a few errors. Let's go through it step by step and correct the mistakes.

Corrected Program:

```pascal program program1cl; var a: array[1..50] of integer; i, k, s: integer; begin randomize; for i := 1 to 50 do begin a[i] := random(50) - 20; write(a[i], ' '); end; writeln; k := 0; s := 0; for i := 1 to 50 do begin if a[i] <> 0 then k := k + 1; s := s + a[i]; end; writeln('k = ', k); writeln('s = ', s); readln; end. ```

Explanation:

Here's a breakdown of the changes made to the program:

1. The semicolon (;) after the `end` statement of the first `for` loop is removed. 2. The semicolon (;) after the second `for` loop declaration is removed. 3. The `if` condition in the second `for` loop is corrected. The condition should be `if a[i] <> 0 then` instead of `if a+[i]0 then`. 4. The `writeln` statement for `k` is corrected. It should be `writeln('k = ', k);` instead of `writeln(k=,k);`. 5. The `writeln` statement for `s` is corrected. It should be `writeln('s = ', s);` instead of `writeln('s=',s);`.

Now the program should work as intended. It generates an array of 50 random integers between -20 and 29, prints the array elements, counts the number of non-zero elements (stored in `k`), and calculates the sum of all elements (stored in `s`).

Let me know if you have any further questions!