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

Определите наименьший элемент каждой чётной строки матрицы a[m,n].

👇
Ответ:
1039лчдвб
1039лчдвб
17.03.2020

var

 a: array[1..20, 1..20] of integer;

 n, m, i, j, jm: integer;

begin

 randomize;

 writeln('Введите количество строк и столбцов соответственно: ');

 readln(n, m);

 writeln('Сгенерированная матрица: ');

 for i := 1 to n do

 begin

   jm := 1;

   for j := 1 to m do

   begin

     a[i, j] := random(99);

     write(a[i, j]:4);

     if (i mod 2 = 0) and (a[i, jm] > a[i, j])

       then jm := j;

   end;

   if i mod 2 = 0 then write('  min=a[', i, ',', jm, ']=', a[i, jm]);

   writeln;

 end;

 readln;

end.

4,8(6 оценок)
Открыть все ответы
Ответ:
Вы вводите символьную информацию (данное типа char) при процедуры Read(). В языке Паскаль ввод должен ВСЕГДА завершаться посылкой пары кодов "перевод строки" и "возврат каретки", что и происходит при нажатии клавиши "Enter". Так, если Вы вводите латинское "А", программа получает не один символ, а три: с кодом "А", с кодом "перевод строки" и с кодом "возврат каретки". И чтение в цикле происходит сразу три раза до очередного обращения к клавиатуре. Итого получается четыре прохода по циклу: первые три символа на самом деле воспринимаются, как девять, а затем считывается четвертый, что дает десять и цикл завершается.

Для правильной работы с символьными данными (char, string) следует использовать не Read(), а Readln() и все у Вас получится. Процедура Readln() "отрезает" коды "перевод строки" и "возврат каретки".
4,4(64 оценок)
Ответ:
Pузик
Pузик
17.03.2020

задача 1

поскольку и объем лазерного диска и объем дискеты выражены в одних единицах, можно сразу приступать к вычислениям

разделим объем лазерного диска на объем дискеты

650/1,39=467,6 (приблизительно 468) дискет

задача2а

переведем килобайты в байты, умножив на 1024

5Кб=5*1024=5120 байт переведем байты в биты, умножив на 8

5120 байт*8=40960 бит

задача2б

чтобы перевести биты в байты разделим их на 8

12288бит/8=1536 байт

чтобы перевести байты в килобайты разделим полученное число на 1024

1536/1024=1,5 Кб

задача2в

переведем биты в байты

2^13/2^3=2^10 при делении показатели степеней вычитаются

переведем байты в килобайты

2^10/2^10=1Кб


4,5(57 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ