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

Мой не любимый предмет геометрия сочинение

👇
Открыть все ответы
Ответ:
evdokiya888p06xhz
evdokiya888p06xhz
09.05.2023
#include <stdio.h>
#include <stdlib.h>
#include <stdbool.h>

int main(void) {
           int n, m;
           scanf("%d %d", &n, &m);
           int matrix[n][m];
           for (int i = 0; i < n; i++) {
                      for (int j = 0; j < m; j++) {
                                 scanf("%d", &matrix[i][j]);
                      }
           }
           int ans = 0;
           for (int i = 0; i < n; i++) {
                      bool tmp = false;
                      for (int j = 0; j < m && tmp == false; j++) {
                                 for (int k = j + 1; k < m && tmp == false; k++) {
                                            if (matrix[i][j] == matrix[i][k]) {
                                                       tmp = true;
                                            }
                                 }
                      }
                      if (tmp == false) {
                                 ans++;
                      }
           }
           printf("%d", ans);
           return 0;
}
4,5(56 оценок)
Ответ:
seba777
seba777
09.05.2023
Для случайных чисел:

var
   a: array[1..5] of integer;
   i: integer;
begin
   randomize;
   for i:=1 to 5 do
      a[i] := random(100);
   for i:=1 to 5 do
      write(a[i], ' ');
   writeln;
   for i:=1 to 5 do
      a[i] := a[i] * i;
   for i:=1 to 5 do
      write(a[i], ' ');
end.

Для ручного заполнения:

var
   a: array[1..5] of integer;
   i: integer;
begin
   for i:=1 to 5 do
      readln(a[i]);
   for i:=1 to 5 do
      write(a[i], ' ');
   writeln;
   for i:=1 to 5 do
      a[i] := a[i] * i;
   for i:=1 to 5 do
      write(a[i], ' ');
end.
4,4(57 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ