М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
vovkatop228
vovkatop228
19.05.2023 15:30 •  Информатика

Идёт k-я секунда суток. разработайте программу, которая по введённой k-й секунде суток определяет, сколько целых часов h и целых минут с начала суток

👇
Ответ:
Var
k,m,h:integer;
    begin
         readln(k);
               writeln(k div 60, '  минут');
               writeln(k div 3600, '  часов');
end.
4,4(93 оценок)
Открыть все ответы
Ответ:
Lokator505
Lokator505
19.05.2023
Ну тут ты не указал какой масив, одновымерный или двохвымерный
я напишу для двохвымерного масива
Type Tabl = array [1..5,1..5] of integer;const A: Tabl = ((10,5,6,9,5) , (9,7,12,6,10), (5,4,8,9,11), (10,9,4,2,6), (8,4,6,9,5));var i,j:integer;var Ar,P: real;beginAr:=1;P:=0;for i:=1 to 5 do beginfor j:=1 to 5 dowrite (A[i,j]:3);writeln;end;for i:=1 to 5 dofor j:=1 to 5 do beginP:=A[i,j]+A[i,j];Ar:=(Ar+P)/25;write (Ar:5:2);end;writeln;end.

P.S. в константу можешь писать любые числа, которые придумаешь
Почти получилось, только со среднем арифметическим проблема
и должно быть записано все в таком порядке, как на втором скрине
4,6(26 оценок)
Ответ:
//Pascal ABC.NET v3.1 сборка 1172

Const
 n=4;
 m=4;

Var
 ar:array[1..n,1..m] of integer;
 i,j:integer;
begin
 randomize;
 writeln('First matrix:');
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      ar[i,j]:=random(100);   
   write(ar[i,j]:4);
      if ar[i,j] mod 3=2 then inc(ar[i,j]);
     end; 
    writeln;
   end;
 writeln('Final matrix:');
 for i:=1 to n do
  begin
   for j:=1 to m do
    write(ar[i,j]:4);
  writeln;
 end;
end.

Пример вывода:
First matrix:
  20  80   1  69
  25  77  97   3
  32  56  97  23
  99  81  12  82
Final matrix:
  21  81   1  69
  25  78  97   3
  33  57  97  24
  99  81  12  82
4,6(26 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ