СРОЧНО, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА НАДО, УМОЛЯЮ, ТОЛЬКО ПРАВИЛЬНО!…

Program Zadacha1; Const n=17; Var a: Array [1… n] of Integer; i, b: Integer; BeginWriteLn ('Введите ', n, ' чисел через пробел'); For i: =1 To n DoRead (a[i]); b: =1; For i: =1 To n DoIf a[i] < 0 Thenb: =b*a[i]; If b <> 1 ThenWriteLn ('Произведение отрицательных чисел массива равно ', b) ElseWriteLn ('Массив не содержит отрицательных чисел'); ReadLn; End.Program Zadacha2; Const n=20; Var a: Array [1… n] of Integer; i, b, c: Integer; d: Real; BeginWriteLn ('Введите ', n, ' чисел через пробел'); For i: =1 To n DoRead (a[i]); b: =0; c: =0; For i: =1 To n DoIf a[i] Mod 3=0 ThenBeginb: =b+a[i]; c: =c+1; End; d: =b / c; If c <> 0 ThenBeginWriteLn ('Сумма чисел массива, кратных 3, равна ', b); WriteLn ('Количество чисел массива, кратных 3, равно ', c); WriteLn ('Среднее арифметическое чисел массива, кратных 3, равно ', d: 3:2); EndElseWriteLn ('Массив не содержит чисел, кратных 3'); ReadLn; End.