Пожалуйста решите информатику 9 класс очень надо20баллов Одномерный массив с четырьмя операторами lf Задан фрагмент программы : program var 03;{задание 20_2} Var A:array[1...12] of integer; ...

Вам нужно узнать решение и ответ на вопрос Пожалуйста решите информатику 9 класс очень надо20баллов Одномерный массив с четырьмя операторами lf Задан фрагмент программы : program var 03;{задание 20_2} Var A:array[1...12] of integer; ... и правильно выполнить домашнюю работу по предмету Информатика? Готовое решение смотрите далее.

Пожалуйста решите информатику 9 класс очень надо20баллов
Одномерный массив с четырьмя операторами lf
Задан фрагмент программы :
program var 03;{задание 20_2}
Var A:array[1...12] of integer;
I s1 s2 s3 s4:integer;
Begin
A [1]:=25;A[2]:=18;A[3]:=9;A[4]:=16;
A[5]:=13;A[6]:=20;A[7]:=15;A[8]:=24;
A[9]:=23;A[10]:=13;A[11]:=40;A[12]:=23;
for I:=1to12do
S2:=100;
Begin
IfA[i]mod2=0 then S1:=S1+A[i];
If(A[i]mod 5=0) and (A[i] S2:=A[i];
IfA[i]mod5=0thenS3:=S3+1;
If(A[i]mod10=3)then S4:=S4+A[i];
End;
Write(S1;";S2;";S3;";S4)
End

В тексте программы приличное количество синтаксических и логических ошибок. Программа просто работать не будет. Начиная с первой строки - название программы на языке паскаль не может начинаться с цифры. Пропущены запятые и точки. Неправильно расставлены операторные скобки (begin ..end). Приведите в порядок код программы, тогда буде иметь смысл повозиться с ней.