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

Решить на паскале с Процедуры/функции. В массив A[N] занесены натуральные числа. Найти сумму тех элементов, которые кратны данному К

👇
Открыть все ответы
Ответ:
Milana29012000
Milana29012000
09.06.2022

1. Программирования на данный момент является одним из популярных сфер в IT, помимо этого сфера высокооплачиваемая. Стать программистом весьма сложно но это только на первых порах. Плюсом ты сохраняешь пластичность мозга постоянной нагрузкой.

2. IDE или Integrated Development Environment среда для разработки софта. "Больше ничего не придумал"

3.

Текстовый редактор, Компилятор или интерпретатор, Средства автоматизации сборки, Отладчик.

4. Python это высокоуровневый язык программирования общего назначения его синтаксис ядра весьма минималистичен, но его стандартная библиотека весьма обширная. Этот яп заточен на повышение производительности разработчика.

4,6(1 оценок)
Ответ:
inakenyakakyevich
inakenyakakyevich
09.06.2022
{массив заполняется случайным образом положительными и отрицательными элементами. Находятся отрицательные элементы на главной диагонали и если они есть, то находится их сумма и количество. После этого проверяется, если есть отрицательные элементы на главной диагонали, то выдается среднее арифметическое, если нет, то на экране ответ "нет отриц"}
const
m=100;
var
a:array[1..m,1..m]of integer;
i,j,S,n,k: integer;
begin
Readln(n);
    for i:=1 to n do
        begin
             writeln;
                 for j:=1 to n do
                      begin
                            a[i,j]:=random(100)-50;
                             write(a[i,j]:4);
                                  
                      end;
         end;
for i:=1 to n do
  if a[i,i]>0 then
        begin
           s:=s+a[i,i];
           k:=k+1;
       end;
writeln;
 if   k<>0 then
      writeln('SR=', s/k)
 else
       writeln('Net <0');
end.
4,7(12 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ