Александровна-Павловна
?>

Var k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 16; dat[2] : = 20; dat[3] : = 20; dat[4] : = 41; dat[5] : = 14; dat[6] : = 21; dat[7] : = 28; dat[8] : = 12; dat[9] : = 15; dat[10] : = 35; m : = 0; for k : = 1 to 10 do if dat[k]> m then begin m : = dat[k] end; writeln(m); end. с пояснениями, !

Информатика

Ответы

blagorodovaanna375
Программа отыскивает и выводит максимальное из десяти чисел, которые помещаются в массиве dat. вначале каждый элемент массива получает значение. для отыскания максимума отводится переменная m. примененный алгоритм требует, чтобы перед началом поиска значение m было меньше самого меньшего из чисел в dat. в качестве такого значения выбирается ноль. затем в цикле выполняется просмотр всех элементов массива, начиная с первого. если очередной элемент превышает ранее найденный максимум, то за новый максимум принимается значение элемента. после окончания поиска максимума найденное значение выводится на экран.
Mikhailovich_Viktoriya
Вроде это   program lab1_2;   const   n= 5; m=5;   var   a: array[1..n,1..m] of real;         s,i,j: integer;   begin   randomize;       for i: =1 to n do       begin         for j: =1 to m do           begin           a[i,j]: =random(10);           write(a[i,j]: 4);           end;         writeln;       end;   s: =0;     for i: =1 to n do begin     for j: =1 to m do begin       if (a[i,j] mod 2) = 0 then begin       s: =s+a[i,j];       end;     end;       end;   writeln('summa: ',s);     readln; end.(если ошибся сори! )
Richbro7
Это интернет через мобильный телефон. другими словами это беспроводной интернет, когда для подключения устройства к интернету вам не нужны провода. интернет-сигнал идет к вашему устройству через радиоволны. сейчас мобильным интернетом стали называть не только подключения через сотовый телефон, но и напрямую подключения через радиоволны к ноутбуку. но там используется та же самая технология, что и в мобильниках. мобильный интернет хорош тем, что вы не привязаны к конкретному месту, а можете перемещаться как хотите, лишь бы не выходить из зоны действия вашего оператора-провайдера. а недостаток мобильного интернета в том, что у него хуже обстоят дела с безопасностью - к вашему компу или мобиле могут подключиться просканировав нужные радиочастоты сканером, находясь от вас на расстоянии 10-30 метров.

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

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

Var k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 16; dat[2] : = 20; dat[3] : = 20; dat[4] : = 41; dat[5] : = 14; dat[6] : = 21; dat[7] : = 28; dat[8] : = 12; dat[9] : = 15; dat[10] : = 35; m : = 0; for k : = 1 to 10 do if dat[k]> m then begin m : = dat[k] end; writeln(m); end. с пояснениями, !
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

artmasterstyle
garunkhachatryan
Nastyakarysheva8750
Burov1446
osirparts7854
Mukhina1811
keti0290103
Горностаева831
larazaytseva
v-shevlyakov7992
yana2211
tatianaesipenko
Anatolevich-sergeevna
atamanov5
staskamolbio5152
▲