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

Нужна по информатике! в ! создайте массив из 15 целочисленных элементов и определите среди них максимальное значение. заполните случайным образом.

👇
Ответ:
Const
n=15;
var
a:array[1..n]of integer;
i,max:integer;
    begin
        for i:=1 to n do
            begin
                 a[i]:=random(100)-50;
                 write(a[i]:4);
            end;max:=a[1];
for i:=2 to n do
    if a[i]>max then
        max:=a[i];
writeln;
writeln(max);
end.
4,5(60 оценок)
Открыть все ответы
Ответ:
Даниюша3223
Даниюша3223
24.11.2022
Const N1 = 5;
      N2 = 5;
var a: array [0..N1, 0..N2] of integer;
    b: array [0..N1*N2] of integer;
    i, j, n: integer;
begin
     for i:=0 to N1 do {Заполнение массивы случайными числами}
         for j := 0 to N2 do
            a[i, j] := random(9999);
              for i:=0 to N1 do {Основная часть, проверка и заполнение второго массива} 
        for j := 0 to N2 do
             if (a[i, j] mod 2 = 0) then
             begin
                  b[n] := a[i, j];
                  n := n + 1;
             end;
                  for i:=0 to n do  {Вывод полученных чисел}
         writeln(b[i]);
end.
4,7(79 оценок)
Ответ:
Andrey0116
Andrey0116
24.11.2022
Процессор Intel Core i5-3570K 3.40ГГц
Кулер для процессора Thermalright True Spirit 140
Мат. плата Socket1155 ASUS P8Z77-V
Модуль памяти 2x8ГБ DDR3 SDRAM Geil Evo Two GET316GB1600C9DC (PC12800, 1600МГц, CL9)
Жесткий диск 2000ГБ Seagate Barracuda Green ST2000DL003
Накопитель SSD 120ГБ 2.5 OCZ "Vertex 3 VTX3-25SAT3-120G
Видеокарта GeForce GTX 670 2048МБ GIGABYTE GV-N670OC-2GD
Корпус Miditower Zalman Z9 Plus
Блок питания 720Вт Cooler Master Silent Pro M2

45000 руб.

P.S. Если вместо GTX670 взять GTX680, то как раз под 50 000 выйдет. Но по моему этоу уже будет лишней тратой денег.
4,7(48 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ