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

Найдите сумму и количество элементов каждой строки больше среднего арифметического

👇
Ответ:
КатяVL
КатяVL
09.12.2021
Program asd;
Const n=3; m=3;
Var A:array[1..n, 1..m] of integer;
i,j,s,s1,k:integer; sr:real;
BEGIN
  Writeln('Массив А: ');
 For i:=1 to n do
  begin
   s:=0;
   for j:=1 to m do
    begin
    A[i,j]:=Random(10);
    Write(A[i,j]:2);
    s:=s+A[i,j];
      sr:=s/i;
    end;
    Writeln;
  end;
  Writeln;
 k:=0;
  For i:=1 to n do
   begin
   s1:=0;
    for j:=1 to m do
      
      If A[i,j]>sr then
      begin
      inc(k);
      s1:=s1+A[i,j];
   end;
     
     Writeln('Сумма строки №',i,' : ',s1);
   end;
   Writeln('Сред. ариф. массива: ',sr:2:2);
    Writeln('Количество: ',k);
END.
4,4(65 оценок)
Открыть все ответы
Ответ:
LonelyFox1705
LonelyFox1705
09.12.2021

Program Massiv;

Uses Crt;

const n=10 {размер массива} 

var i,k:integer;

       a:array[1..n] of integer;

begin

     clrscr;

     write('Введите элементы массива:' );

     k:=1  

     for i:=1 to n do

            begin

                 readln (a[i]);

                 if (a[i]<0) and (a[i] mod 7)=0 then k:=k*a[i];

            end;

writeln;   

write('Исходный массив:') 

 

for i:=1 to n do   write(a[i]:3);       

 

 writeln;

writeln('Произведение отрицательных элементов кратных 7:',k);

 

 readkey;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4,4(56 оценок)
Ответ:

A2 № 3487. Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых приведена в таблице. (Отсутствие числа в таблице означает, что прямой дороги между пунктами нет.)

Определите длину кратчайшего пути между пунктами A и B (при условии, что передвигаться можно только по построенным дорогам).
1) 6
2) 7
3) 8
4) 9  

A2 № 1030. Путешественник пришел в 08:00 на автостанцию поселка КАЛИНИНО и увидел следующее расписание автобусов:

Определите самое раннее время, когда путешественник сможет оказаться в пункте РАКИТИНО согласно этому расписанию.


1) 12:25
2) 12:30
3) 12:35
4) 12:40


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