Задание:
1) задан массив из N элементов. Вычислить среднее арифметическое тех элементов, которые кратны 3. 2) Задан массив из N элементов. Сформировать новыймассив из элементов, кратных 7.
Решение:
За 2 программы мог бы и побольше пкт накинуть… 1) Program 1z; Var A: array [1… 100] of Integer; N, i: Byte; sa, t: Real; BeginReadln (N); For i: =1 to N doBeginReadln (A[i]); If A[i] mod 3=0 thenBeginsa: =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; BeginReadln (N); For i: =1 to N doBeginReadln (A[i]); If A[i] mod 7=0 thenBegins: =s+1; B[s]: =A[i]; Writeln (B[s]); End; End; End.
Знаете другой ответ?