30
дана прямоугольная матрица а[1..n,1..m] ,заполненная случайными числами в диапазоне от 10 до 40 включительно. вывести на экран матрицу, максимальный элемент данной матрицы в каждой строке​

Эвелина123412   ·   04.02.2020 22:24
Ответов: 3 Показать ответы 1 Обсудить
Ответы
Ответ разместил: POLINSA2005
10.03.2019 18:51

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.

Ответ разместил: DedHappy
10.03.2019 18:51

1) количество возможных событий равно двум. значит n=2, подставляем в формулу n=2^i,  i=1 бит.

2) находим значение информационной емкости одного символа. n=2^i, подставляя значение в формулу, получаем n=64, значит, i=6 бит-информационная емкость 1 символа, значит 5*6=30 бит.

3) i=8 бит=1 байту

(20*1024)/(32*64*1)= 10

Ответ разместил: nona3
10.03.2019 18:51

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

Ответ разместил: неа6
10.03.2019 18:48

program xxx;

    var i, k : integer;

                  a : array [1..10] of real;

begin

  write('введите элементы массива а: ');

  for i: =1 to 10 do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to 10 do

        write(a[i]);

  k: =0;

  for i: =1 to 9 do

      if a[i]< > a[10] then k: =k+1;

  writeln('элементов отдичных от последнего -', k);

  readln

end.

Другие вопросы по Информатике

Сообщение о происхождении значка @. его название "эт"...
Информатика
28.02.2019 12:30
2 ответ(ов)
Первокласник пришел домой и увидел, что мама оставила ему записку с информацией о том, как разогреть обед: -открой холодильник -достань из холодильника желтую кастрюлю -поставь ка...
Информатика
03.03.2019 15:40
3 ответ(ов)
Сократить 1). отрицание (x+отр((x*y)) 2).отр(x*y)+отрx+y+z 3).a*c+a+a*отрb+отрc*a 4).отр( отрx*отрy)+отр x...
Информатика
04.03.2019 07:00
3 ответ(ов)
Составьте программу, которая будет определять положительное или отрицательное введённое пользователем число. (программа турбо паскаль)...
Информатика
04.03.2019 09:20
4 ответ(ов)
Передавались ли у египтян иероглифами гласные звуки?...
Информатика
07.03.2019 15:30
2 ответ(ов)
Скорость передачи данных через adsl- соединение равна 128000 бит/с. передача текстового файла через это соединение заняла 1 минуту опредилите сколько символов содержал переданный т...
Информатика
08.03.2019 01:00
4 ответ(ов)
Решить по информатике. задан массив случайным образом. преобразовать массив: отрицательные элементы, кратные 7, заменить модулем, нулевые элементы заменить числом n(размер массива...
Информатика
08.03.2019 02:00
3 ответ(ов)
Какой минимальный объём видеопамяти в кбайтах нужен для хранения изображения размером 600х450 пикселей и использующего 64-цветную палитру...
Информатика
08.03.2019 05:40
2 ответ(ов)
Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа n. программу напишите на бейсике...
Информатика
08.03.2019 18:50
2 ответ(ов)
Составить программу ,используя цикл с постусловием: вывести на экран все четные числа от 16 до 24! только в паскале...
Информатика
08.03.2019 20:30
4 ответ(ов)
Turbo pascal: компания по снабжению электроэнергией взимает плату с клиентов по тарифу: -7р. за 1 квт/ч за первые 250 квт/ч -17 р. за квт/ч если потребление свыше 250, но не прев...
Информатика
08.03.2019 22:40
2 ответ(ов)
Укажите непрвильные формулы: a)a2+b4 б)=a1/c453 в)=c245*m67 г)=o89-k89 д)=о45*в2 е)=к15*в1 ж)=12а-в4 з)а123+о1...
Информатика
09.03.2019 03:00
2 ответ(ов)
Самые популярные сегодня