Дан массив С(10). Сформируйте из него массивы А(5) и В(5), предварительно определив их длину. В массив А включите элементы из массива С с четными

+ 0 -

дево4каскандал

22 нояб. 2014 г., 9:31:40 (9 лет назад)

const n=10; m=5;
var
   i,j,k:integer;
   A:array[1..n] of integer;
   B,C:array[1..m] of integer;
begin
   writeln('Введите элкменты массива');
   for i:=1 to n do readln(a[i]);
   j:=0; k:=0;
   for i:=1 to n do
     if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
     else begin k:=k+1; C[k]:=A[i] end;
   writeln('Массив А');
   for i:=1 to n do write(A[i],' ');
   writeln;
   writeln('Массив B');
   for i:=1 to j do write(B[i],' ');
   writeln;
   writeln('Массив C');
   for i:=1 to k do write(C[i],' ');
   writeln
end.

+ 0 -

Catiamoom

22 нояб. 2014 г., 11:14:56 (9 лет назад)

Комментарий удален

+ 0 -

Lezginkavkaz

22 нояб. 2014 г., 14:12:13 (9 лет назад)

паскаль трубо