program raf105;
var v:array[1..9] of real;
i,j,kolvo,n:integer;
max:real;
begin
writeln('Введите 9 значений по очереди: ');
for i:=1 to 9 do
read(v[i]);
for j:=1 to 9 do
begin
for i:=1 to 9 do
begin
if (v[j]-v[i]) > 0
then kolvo:=kolvo+1;
end;
if kolvo=8
then
begin
max:=v[j];
n:=j;
end
else kolvo:=0;
end;
v[n]:= -max;
writeln('Максимальное число с противоположным знаком: ',v[n]);
end.
<em>Написано на языке PascalABC.NET</em>
Что надо делать в этом задании ?
Нашел раз Системный блок небольшой дом. Залез в него и стал там жить. Пришла мышь и спрашивает:"Кто в теремке живет?"Системный блок ответил:"Я здесь живу, заходи вместе жить будем".Жили они хорошо.Пришел модем, спросил:"Кто в теремке живет?" А ему отвечают:"Мы, системный блок и мышь, заходи к нам."Стали вместе жить.Пришла клавиатура и спросила:"Кто тут живет?"Ей ответили:" Мы, системный блок, мышь и модем, заходи к нам." Стали вместе жить.Пришел монитор, спросил:"Кто здесь живет? "А ему ответили:"Нет места".Залез монитор на дом-теремок и стал там жить. Так появился компьютер. (домик-стол компьютерный)
1) Узнаем сколько фото:
600 Мбайт = 600 000 Кбайт.
600 000 / 500 = 1 200 (фото)
2) Узнаем сколько нужно времени:
1 фото = 6 (сек).
1 200 * 6 = 7 200 (сек) = 120 (мин) = 2 (ч)
Ответ: 2 часа.