Регистрация
Kot7476
04.06.2020 12:35
Информатика
Есть ответ 👍

1. Какие цифровые устройства вы знаете? 2. Какими цифровыми устройствами вы часто пользуетесь?
3. Почему устройства называют цифровыми?
4. Почему многие цифровые устройства называют мобильными? 5. Назовите оптические цифровые носители информации многоразового применения
6. Назовите цифровой носитель информации с самой большой емкостью

253
423
Посмотреть ответы 1

Ответы на вопрос:

kristinakomaro5
kristinakomaro5
4,6(55 оценок)
Pascalabc var  mas: array[-1000..1000] of integer;   i, min, max, n, razn: integer; begin   //ввод количества элементов массива  readln(n);   //ввод массива и его вывод на экран  randomize;   for i : = 1 to n do    begin    mas[i] : = 500 - random(1000) - 1;     write(mas[i]: 5);     if (i mod 10 = 0) then writeln;   end;   //поиск минимума и максимума  min : = mas[1];   max : = mas[1];   for i : = 2 to n do    begin    if (mas[i] < min) then min : = mas[i];     if (mas[i] > max) then max : = mas[i];   end;   //нахождение разности  razn : = max - min;   writeln;   writeln('разность = ',razn); end.

Популярно: Информатика