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

Вмассиве 10 на 5 заполненном случайными двузначными числами, посчитать количество чисел кратных 3, и вывести эти числа в строчку.

👇
Ответ:
Sofja007
Sofja007
18.11.2020
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=MatrRandom(10,5,10,99);
  a.Println(3); Writeln(3*a.ColCount*'-');
  var b:=a.Rows.SelectMany(x->x).Where(x->x mod 3=0);
  Write('[',b.Count,']='); b.Println
end.

Пример
 67 37 13 90 96
 58 43 59 42 11
 85 54 94 13 33
 20 97 13 65 74
 31 15 64 36 32
 21 37 34 38 95
 79 97 95 90 81
 24 40 97 17 91
 69 10 63 51 33
 54 83 83 93 99

[18]=90 96 42 54 33 15 36 21 90 81 24 69 63 51 33 54 93 99
4,4(62 оценок)
Ответ:
svetamoroz73
svetamoroz73
18.11.2020
Const
   N = 10;
   M = 5;
Var
   A:array[1..N,1..M] of byte;
   i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random(90)+10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
Write('Числа, кратные трём:');
For i:= 1 to N do
    For j:= 1 to M do
        if A[i,j] mod 3 = 0 then
           Begin
           Write(' ',A[i,j]);
           k:=k+1
           End;
WriteLn;
WriteLn('Их количество: ',k)
End.

Пример работы программы:

Исходный массив:
 89  38  43  42  57
 43  23  71  61  82
 77  80  44  69  92
 35  33  97  48  78
 58  38  58  88  62
 49  43  75  14  68
 20  19  18  43  47
 13  84  14  46  86
 26  22  87  69  75
 68  84  88  38  49
Числа, кратные трём: 42 57 69 33 48 78 75 18 84 87 69 75 84
Их количество: 13
4,7(92 оценок)
Открыть все ответы
Ответ:
lidatutaeva
lidatutaeva
18.11.2020

1) Браузер

2) Таблица

3) 2 ( обновить ссылку на странице, которая будет вести на новую страницу n, и на самой странице n)

4) Графически представлять данные с графиков и диаграмм, выводить на печать электронные таблицы; вычислять и анализировать данные, а также пересчитывать значения при изменении данных; создавать, открывать, редактировать, а также сохранять таблицы в файле

5)Название документа, название программы и кнопки управления окном

6)Числовые данные

7)Один столбец с числами

8)Параметры диаграммы, тип и вид диаграммы и источник данных диаграмм

Все ответы проверены

4,8(19 оценок)
Ответ:
EfaliyaRom
EfaliyaRom
18.11.2020

PascalABC.NET

begin

 // Последовательность целых чисел вводится с клавиатуры

 // пока не будет введен 0 (который не войдет в нее).

 // Затем последовательность преобразуется в массив (ToArray)

 // нужного размера, который сохраняется с именем a

 var a := ReadSeqIntegerWhile(p -> p <> 0).ToArray;

 // Заведем счетчики для количества положительных kp и

 // отрицательных kn элементов и обнулим их

 var (kp, kn) := (0, 0);

 // Просматриваем в цикле массив. На каждом шаге p будет обозначать

 // очередной элемент массива

 foreach var p in a do

   if p > 0 then       // если элемент положительный

     kp += 1               // добавим 1 в счетчик положительных

   else if p < 0 then  // если элемент отрицательный

     kn += 1;              // добавим 1 в счетчик отрицательных

 // Осталось вывести результаты

 Writeln('Положительных чисел ', kp, ', отрицательных ', kn)

end.

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