sarbaevmax
?>

Выберите верно записанный диапазон ячеек от D2 к G10 А) D2 – G10;Б) D2 : G10;В) D2 ; G10;Г) D2, G10.​

Информатика

Ответы

ermisyareg436

Б) D2 : G10;

okutihamv

чтобы не задавать вручную, пусть он заполняется случайными числами в диапазоне от -50  до + 50

Free Pascal

const

 n=10;

 m=8;

var

 x : array [0..n] of integer;

 y : array [0..m] of integer;

 z : array [0..n+m] of integer;

 i, c, mi : integer;

begin

 randomize;

 writeln('Массив X');

 for i:=0 to n-1 do begin

   x[i] := random(100)-50;

   if i<m then

     y[i] := random(100)-50;

   write(x[i], '  ');

 end;

 c:=0;

 mi:=0;

 for i:=0 to n-1 do begin

   if x[i] mod 2 = 0 then c:=c+x[i];

   if (x[i] < 0) and (x[i] < mi) then mi:=x[i];

 end;

 writeln();

 writeln('Сумма чётных = ', c);

 if mi<0 then

   writeln('Наименьшее из отрицательных = ', mi)

 else

   writeln('Отрицательных элементов не найдено');

(*Задание 2 - объединить массивы a и b*)

 writeln('Массив Y');

 for i:=0 to n-1 do z[i]:=x[i];

 for i:=0 to m-1 do  begin

   z[i+n]:=y[i];

   write(y[i], '  ');

 end;

 writeln();

 writeln('Массив Z');

 for i:=0 to n+m-1 do

   write(z[i], '  ');

end.


Разработать программу на языке Паскаль турбо для решения следующей задачи. Задан массив целых чисел
snabdonm501
20:02-4:11=15:51
ответ: 4 ч 11 мин.

Более подробно: 20:02 - если не учитывать, что в часе 60 минут, то предыдущее "счастливое" время - 19:91, но это не подходит, т.к. часы не могут показывать столько, дальше аналогично:
18:81 - не подходит;
17:71 - не подходит;
16:61 - не подходит;
15:51 - подходит, значит, это - предыдущее "счастливое" время.
Чтобы найти, сколько времени с 15:51 до 20:02, то есть найти, насколько 20:02 больше, чем 15:51, нужно из большего отнять меньшее: 20:02-15:51=4:11, то есть 4 часа 11 минут.
ответ: 4 ч 11 мин.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Выберите верно записанный диапазон ячеек от D2 к G10 А) D2 – G10;Б) D2 : G10;В) D2 ; G10;Г) D2, G10.​
Ваше имя (никнейм)*
Email*
Комментарий*