Пожалуйста решите информатику 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). Приведите в порядок код программы, тогда буде иметь смысл повозиться с ней.

Подобные ответы

Казаский Язык!!! А не Информатика! ПОМОГИТЕ ПОЖАЛУЙСТА УМОЛЯЮ ВАС СРОЧНО МУЧАЮСЬ!!!!
Казаский Язык!!! А не Информатика! ПОМОГИТЕ ПОЖАЛУЙСТА УМОЛЯЮ ВАС СРОЧНО
Составить уравнение, плиз помогите
Составить уравнение, плиз помогите
составьте программу вычисления суммы всех двузначных чисел Паскаль Через While
составьте программу вычисления суммы всех двузначных чисел Паскаль Через
помогите с 1,2,3,4 и 11 ОЧЕНЬ НАДО. ПОЖАЛУЙСТА.
помогите с 1,2,3,4 и 11 ОЧЕНЬ НАДО. ПОЖАЛУЙСТА.