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

Нарисуйте Блок-Схему, по данной программе Паскаль. Программа:
const n=6;
var a:array[1..n,1..n] of integer;
i,j,mn,s:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=1+random(9);
write(a[i,j]:2);
if i*j=1 then mn:=a[i,j]
else if a[i,j] 2*mn)then s:=s+a[i,j];
write('Сумма элементов кратных 3 и больших минимального в 2 раза(',2*mn,')=',s)
end.

👇
Ответ:
malygin73rus
malygin73rus
30.10.2021

Ничего не понял. Но очень интересно.)

4,8(64 оценок)
Открыть все ответы
Ответ:
nastyayudina21
nastyayudina21
30.10.2021
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (sn,pp,kp):=(0,1,0);
  var n:integer;
  repeat
    Read(n);
    if (n<0) and n.IsOdd then sn+=n
    else
      if (n>0) and (n mod 3=0) then begin pp*=n; kp+=1 end
  until n=0;
  if sn=0 then begin
    Writeln('Нет отрицательных нечетных чисел');
    if kp=0 then Writeln('Нет положительных чисел, кратных 3')
    else Writeln('Произведение положительных чисел, кратных 3: ',pp)
    end
  else begin
    Writeln('Сумма отрицательных нечетных чисел: ',sn);
    if kp=0 then Writeln('Нет положительных чисел, кратных 3')
    else Writeln('Произведение положительных чисел, кратных 3: ',pp)
    end
end.

Пример
-367 23 62 7 12 -24 90 152 -63 0
Сумма отрицательных нечетных чисел: -430
Произведение положительных чисел, кратных 3: 1080
4,7(87 оценок)
Ответ:
marina19793
marina19793
30.10.2021

По горизонтали:
4. Устройство для записи, считывания и длительного хранения информации на гибких магнитных дисках (дискетах).
7. Устройство, предназначенные для вывода на экран текстовой и графической информации.
9. Ячейки памяти, которые служат для кратковременного хранения и преобразования данных и команд.
11. Линия связи к которой подключена сеть.
13. Устройство для записи, считывания и длительного хранения информации на жестких магнитных дисках.
14. Устройство ввода звуковой информации.
15. Системная магистраль передачи данных.

По вертикали: 
1. Устройство для вывода чертежей на бумагу.
2. Электронная схема, которая управляет работой какого-либо внешнего устройства.
3. Устройство для обмена информацией между компьютерами через телефонные, оптоволоконные и др. сети.
5. Вс процессор, предназначенный для выполнения математических и логических действий.
6. Небольшая электронная схема, выполняющая все вычисления и обработку информации.
8. Устройство вывода звуковой информации.
10. Устройство для считывания графической и текстовой информации в компьютер с бумажных носителей информации.
12. Печатающее устройство, предназначенные для вывода информации на бумагу.
14. Манипулятор для ввода информации в компьютер.

4,4(87 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ