Витя нарисовал лес в горах. Петя нарисовал лес. Даша нарисовала горы
Думаю чтото вроде того
покрышка часть колеса
колесо часть автомобиля
окно часть автомобиля
стекло часть окна
окно часть дома
дверь часть дома
предмены общие потому что таких домов, окон и тп может быть много
Я не знаю через массив или как это писать, поэтому напишу простейший вариант
program n_pologitelnih;
uses crt;
var i,n,k,a:integer;
begin
clrscr;
write('Введи N=>> ');
readln(n);
for i:=1 to n do
begin
write('Введи число');
readln(a);
if a>0 then k:=k+1;
end;
write('Положительных чисел из ',n,' введенных - ',k);
readln;
end.
program c1;
uses crt;
var a: array [1..5] of integer;
max,k,i: integer;
begin
clrscr;
for i:=1 to 5 do read (a[i]);
k:=0;
max:=1;
for i:=2 to 5 do
if a[i]>a[max] then max:=i;
for i:=1 to 5 do
if a[i]=a[max] then k:=k+1;
writeln ('Кол-во макс. элементов = ',k);
end.