1) задан массив из N элементов. вычислить среднее арифметическое тех элементов, которые кратны 3. 2) Задан массив из N элементов. Сформировать новый массив из элементов, кратных 7.

1) задан массив из N элементов. вычислить среднее арифметическое тех элементов, которые кратны 3. 2) Задан массив из N элементов. Сформировать новый массив из элементов, кратных 7.

01-06-2019 16:38 Просмотры: 6
Ответы (1)
Асель Карпуничева
+5
2019-06-02 01:57:30

За 2 программы мог бы и побольше пкт накинуть... 1) Program 1z; Var A: array [1..100] of Integer; N, i: Byte; sa, t: Real; Begin Readln (N); For i:= 1 to N do Begin Readln (A[i]); If A[i] mod 3 = 0 then Begin sa:=sa+A[i]; t:=t+1; End; End; sa:=sa/k; Writeln (sa); Readln; End. 2) Program 2z; Var A, B: array [1..100] of Integer; i, s, N: Byte; Begin Readln (N); For i:=1 to N do Begin Readln (A[i]); If A[i] mod 7 = 0 then Begin s:=s+1; B[s]:=A[i]; Writeln (B[s]); End; End; End.

Похожие вопросы