Uses crt;
var r: array [1..10] of integer;
nev, n, min,i, zap:integer;
begin
clrscr;
write('Введите возраст невесты: '); readln(nev);
write('Введите число женихов: '); readln(n);
if n<2 then
for i:=1 to n do
begin
write('Введите возраст ',i,'-го жениха: '); readln(r[i]);
end;
i:=0; zap:=0;
while (zap=0) and (i<=n) do begin
i:=i+1;
min:=nev-r[i];
if min>0 then zap:=i;
end;
if i<>n then
begin
for i:=zap to n do
begin
if min>(nev-r[i]) then
begin
zap:=i;
min:=nev-r[i];
end;
end;
writeln('Самый молодой жених старше невесты в возрасте ',r[zap], ' лет. Разница в возрасте составляет ', min, ' лет.');
writeln ('По счету это ',i,'-ый жених');
end
else writeln('Среди женихов нет подходящего для нашей невесты.');
end;
else writeln('Число женихов должно быть более 2!');
end.
1) Объект - книга. Изучение с помощью просмотра и прочтения. Свойства: твёрдая обложка состоящая из картона, тонкие, мягкие страницы состоящие из бумаги.
2) [Если бы Вы написали план характеристики, было бы намного проще] Объект: шкаф (да, я смотрю на шкаф), характеристика:
Сделан из дерева, имеет металлические детали и механизмы выдвижения и открывания ящиков и дверц, в нём можно хранить одежду.
3)Из неограниченного количества: 1-компьютер, тетрадь, ручка; 2-стиральный порошок, зубная паста, 3-школьная меловая доска и т.д.
4)Существенным называется свойство, которое наиболее важно для человека, чтобы использовать или иметь контакт с каким-либо объектом, например при покупке одежды, существенным свойством является размер этой одежды.
(Если помогло, отметьте пожалуйста ответ, как лучший)
1875 кбайт * 1024 * 8 = 15 360 000 бит
800 * 600 * (ln(256)/ln(2)) = 3840000 бит
15360000 / 3840000 = 4 страницы
Ответ:
var n,i,c,m,p:integer;
begin
m:=0;
p:=0;
writeln('Введите количество чисел.');
readln(n);
for i:=0 to n-1 do
begin
readln(c);
if c < 0 then m:=m+1
else if c = 0 then continue
else p:=p+1;
end;
if p < m then writeln('Отрицательных чисел больше, чем положительных.')
else if p > m then writeln('Положительных чисел больше, чем отрицательных.')
else writeln('Равное количество положительных и отрицательных чисел');
end.
Объяснение:
Переменные:
n - количество чисел, i - счетчик цикла for, c - считанное значение, m - счетчик отрицательных чисел, p - счетчик положительных чисел.
Считаем, что "0" - ни положительное, ни отрицательное число.