Const N = 15; Var A:array[1..N] of integer; i,Kc,Kn,Sn:integer; Begin Kc:=0; Sn:=0; Kn:=0; Randomize; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(21)-10; Write(' ',A[i]); if A[i] mod 2 = 0 then Kc:=Kc+1; if A[i] mod 2 <> 0 then Begin Sn:=Sn+A[i]; Kn:=Kn+1; End; if A[i]>0 then A[i]:=0; End; WriteLn; WriteLn('Количество чётных: ',Kc); WriteLn('Среднее арифметическое нечётных: ',Sn/Kn); Write('Новый массив:'); For i:= 1 to N do Write(' ',A[i]) End.
var A: array[1..nmax] of integer; I, m, s: integer; Am, kon: text;
begin Clrscr; Assign(Am, 'Am.txt');
{раскоментировать для записи массива в файл} {Rewrite(Am); m := Random(nmax - 5) + 5; for i := 1 to m do Writeln(Am, Random(20)); Close(Am);}
{считывание данных из файла} Reset(Am); s := 0; m := 0; while not eof(Am) do begin m := m + 1; Readln(Am, A[m]); s := s + A[m]; end; Close(Am);
Assign(kon, 'kon.txt'); Rewrite(kon);
if s > 50 then Writeln('Сумма элементов массива более 50 и равна: s=', s) Else begin Writeln('Сумма элементов менее 50, вывод исходного массива'); for i := 1 to m do begin Writeln('A[', i, ']=', A[i], ' '); Writeln(kon, 'A[', i, ']=', A[i], ' '); end; end;
ответ:
