мария Кузив1393
?>

Написать программу. все входные массивы заполняются случайными целыми числами из диапазона [-50; 50].дан массив размера n. найти наименьший элемент в массиве. (консольная программа visual studio installer)

Информатика

Ответы

Ruslanovich1217
Uses crt; var i,a: integer;       begin                for i: =1 to 16 do                        begin                              textcolor(i);                               a: =random(50);                                 write(a);                               sound(i*100);                                 delay(5000);                               nosound;                       end;     readkey; end.
didizain
Программа : uses crt; const n=10; type vec=array [1..n] of integer ; var i, max: integer;       a: vec ; begin clrscr; randomize; writeln (' old massiv: '); for i: =1 to n do       begin             a[i]: =-5+random(15);             write (a[i]: 4);       end; writeln; max: =a[1]; for i: =2 to n do         if a[i]> max then max: =a[i]; writeln; writeln(' max = ', max); writeln (' new massiv: '); for i: =1 to n do   begin       if a[i] > 0 then a[i]: =max;       write (a[i]: 4);   end; writeln; readln; end.

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

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

Написать программу. все входные массивы заполняются случайными целыми числами из диапазона [-50; 50].дан массив размера n. найти наименьший элемент в массиве. (консольная программа visual studio installer)
Ваше имя (никнейм)*
Email*
Комментарий*

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

natkoff5
utkinslava
КириллЕгорова1906
membuksdk
office46
shakmeev
Геннадьевна_Петр
vladimir686
evamining
Джулия
Макаров1887
oksit
gre4ka2004
scraer198258
themolodoy