Заполните случайными числами в диапазоне от 1 до 10 два массива: А[1:10] и B[1:10]. Найдите и выведите на экран только те элементы этих массивов, значения которых совпадают. Например, если А[2] = В[2] = 6, то на экран надо вывести: Номер: 2 значение: 6 Если таких совпадений нет, то вывести на экран сообщение об этом. В отчет включить тексты программ, реакции ЭВМ.

program proba1;

var a,b:array [1..10] of integer;

i,k:integer;

begin

write('Массив А: ');

for i:=1 to 10 do

begin

a[i]:=random(10);

write (a[i]:2)

end;

writeln;

write('Массив В: ');

for i:=1 to 10 do

begin

b[i]:=random(10);

write (b[i]:2)

end;

writeln;

k:=0;

for i:=1 to 10 do

if a[i]=b[i] then

begin

writeln('Номер: ',i,' значение: ',a[i]);

k:=k+1

end;

if k = 0 then write ('Совпадений нет')

end.

Объяснение:

Смотри картинки

program raf105;

var fioa2:array[1..20] of string;

fioa1:string;

m1,g1,m2,g2,i,o:integer;

begin

write('Введите сегодняшнюю дату (месяц, год) через пробел: ');

readln(m1,g1);

g1:= g1*12;

m1:= m1+g1;

writeln;

for i:=1 to 20 do

begin

 write(i,'. Введите фамилию, имя, отчество и адрес сотрудника: ');

 readln(fioa1);

 write('   Дата поступления (месяц, год): ');

 readln(m2,g2);

 writeln;

 g2:= g2*12;

 m2:= m2+g2;

 if m1-m2>=36

   then begin

   o:= o+1;

   fioa2[o]:= fioa1;

   end;

end;

writeln('Сотрудники которые проработали не менее трёх лет:');

for i:=1 to o do

writeln(i,'. ',fioa2[i]);

end.

Язык программирования PascalABC

program raf105;

const

 n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять

var

 a:array[1..n,1..n] of integer;

 asum:array[1..n] of integer;

 i,j,k,sum,kolsum: integer;

 x: boolean;

begin

write('Введите число k (не больше ',n,'): ');

readln(k);

for i:=1 to n do

begin

 writeln;

 writeln('Введите ',n,' чис. ',i,' стр.');

 for j:=1 to n do

   readln(a[i,j]);

end;

writeln;

writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');  

for i:=1 to n do

begin

 x:= true;

 sum:= 0;

 for j:=1 to k do

 begin

   if x and (a[i,j] <= 0)

     then x:= false;

 end;

   if x

   then  

   begin

     for j:=1 to n do

       sum+= a[i,j];

     kolsum+= 1;

     asum[kolsum]:= sum;

     writeln(asum[kolsum]);

   end;

end;

end.