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

Рассмотрите картину опять двойка.рассказать по этой картине об другим и собой.

👇
Ответ:
edomokurov
edomokurov
26.08.2020
1.Мальчик получил двойку.
2. Мама и сестра огорчены.
3. Младший брат и собака все равно рады видеть мальчика.
4.Делу время, потехи час.

Главный герой картины - школьник. У него взъерошены волосы и горят щеки. Одет он в старенькое пальто, под которым видна школьная форма. В руках у него портфель, где поверх книжек лежат коньки. Мальчик очень любит кататься на катке и не успевает делать домашние задания. Поэтому он снова получил двойку.
   Мама мальчика не удивилась, но очень расстроилась. Она не кричит на него, но видно, что она огорчена. Старшая сестра с осуждением смотрит на брата. Наверное, совсем недавно была такая же ситуация.
   Младший брат катается на велосипеде и рад, что пришел старший брат. Теперь можно будет с ним поиграть. Верный пес радуется хозяину и ждет, когда же они пойдут гулять.
   Я думаю, что такие ситуации часто бывают в жизни. И считаю, что нужно вначале  думать об учебе, а потом уже - о развлечениях.
4,5(44 оценок)
Открыть все ответы
Ответ:
valerango
valerango
26.08.2020

uses

   crt;

const

    max=50;

var

  a:array[1..max,1..max] of integer;

  i,j,n,s,k:integer;

begin

    writeln('wvedite razmernost matrici');

    readln(n);

    writeln('wvedite matricu ',n,' x ',n);

    for i:= 1 to n do

        begin

             for j:= 1 to n do

                 read(a[i,j]);

        end;

    s:=0;

    k:=0;

    for i:= 1 to n do

        begin

             for j:= 1 to n do

                 if (j mod 2<>0) and (i mod 2<>0) then

                    begin

                         s:=a[i,j]+s;

                         k:=k+1

                    end;

        end;

        s:=round(s/k);

        writeln('sredne arifmet znashenie s neshetnimi indeksami ravno ', s);

readkey

end.

4,7(73 оценок)
Ответ:
dmit0
dmit0
26.08.2020
Немного не понял, упорядочить по возрастанию снизу вверх.  Если выводить будет не так то в этой строчке изменишь знак на '>'  if podarr[i] < podarr[i+1] then

program znanija_com;
const
n = 5;
m = 3;
type
  tArray = array[1..n, 1..m] of integer;
  tPodArray = array[1..n] of real;
var
  arr : tArray;
  podarr : tPodArray;
  i,j,sum : integer;
procedure swap(var x,y: real);
  var t: real;
begin
  t := x;
  x := y;
  y := t
end;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to n do begin
  sum:=0;
  for j:=1 to m do begin
    arr[i, j]:=random(10);
    write(arr[i, j], ' ');
    sum:=sum+arr[i, j]; 
  end;
  writeln();
  podarr[i]:=sum/m;
end;
for j:=1 to n-1 do
  for i:=1 to n-j do
    if podarr[i] < podarr[i+1] then
      swap(podarr[i],podarr[i+1]);
writeln('Результирующий массив:');
for i:=1 to n do
  writeln(podarr[i], ' ');
end.
4,6(20 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ