Пожалуйста решите! напишите программу, которая вводит с клавиатуры два непустых массива целых чисел и печатает те и только те элементы, которые

+ 0 -

Adidas199848

06 авг. 2014 г., 20:20:34 (9 лет назад)

uses crt;
const N=10;
var a,b,c:array [1..N] of integer;
     x,y,z:integer;
begin
     y:=1;
     for x:=1 to N do
     begin
          write('a[',x,']:');
          readln(a[x]);
          write('b[',x,']:');
          readln(b[x]);
          if a[x]=b[x] then
          begin
               c[y]:=a[x];
               inc(y);
          end;
     end;
     writeln;
     for z:=1 to y-1 do
         writeln(c[z]:3);
end.