Пересечение - это множество элементов, которые одновременно принадлежат обоим множествам.
Если все элементы второго множества существуют и в первом, то в их пересечении будет 13 элементов.
Первая часть
Program n_1;
var i:integer; B: array[1..7] of real;
begin
for i:=1 to 7 do begin
read(B[i]);
if B[i]<0 then B[i]:=0;
end;
for i:=1 to 7 do write(B[i]:0:5, ' ');
end.
Вторая часть
Program n_2;
var i:integer; a:real; C: array[1..10] of real;
begin
for i:=1 to 10 do begin
read(C[i]);
end;
a:=C[1];
for i:=1 to 10 do if (C[i]>a) then a:=C[i];
writeln(a:0:10);
end.
Объяснение:
var s,n,d,e:integer;
m: string;
begin
writeln('Курс доллара?');
readln(d);
writeln('Курс евро?');
readln(e);
writeln ('Сколько рублей у посетителя?');
readln(n);
writeln ('доллар или евро?');
readln(m);
if m='доллар' then s:=n div d;
if m='евро' then s:=n div e
else writeln('Такой валюты нет');
writeln(s);
end.
Const n=5;
var
a,b:array[1..n,1..n] of integer;
i,j: byte;
max2,k5:integer;
begin
randomize;
k5:=0;
max2:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(1,100);
write(a[i,j]:4);
if (i=2) and (a[i,j]>max2)
then max2:=a[i,j];
if (j=5) and (a[i,j] mod 2 =0)
then k5:=k5+1;
end;
writeln;
end;
writeln;
writeln ('Максимальный элемент 2-ой строки = ',max2);
writeln ('Количество четных элементов 5-го столбца = ',k5);
end.
---------------------------------------------
Пример:
2 26 38 58 16
70 24 40 39 35
74 38 69 93 94
64 6 18 56 93
44 86 17 93 56
Максимальный элемент 2-ой строки = 70 <br>
Количество четных элементов 5-го столбца = 3