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

Паскаль! ! удалить первую из строк матрицы в которой сумма элементов кратна 3. если такой строки нет - выдать соответствующее сообщение.

👇
Ответ:
vika24rus25
vika24rus25
09.01.2021
// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в матрице:');
  var m:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var (i,k):=(0,-1);
  foreach var r in a.Rows do
    if r.Sum mod 3=0 then begin
      k:=i; break
      end
    else i+=1;
  if k>=0 then begin
    Writeln('*** Матрица - результат [',n-1,',',m,'] ***');
    for var r:=k to a.RowCount-2 do
      a.SetRow(r,a.Row(r+1));
    SetLength(a,n-1,m);
    a.Println
    end
  else Writeln('Нет строк с суммой жлементов, кратной трем')
end.

Пример
Количество строк в матрице: 7
Количество столбцов в матрице: 8
*** Исходная матрица [7,8] ***
 -22  75  97  33  10 -58 -50 -11
  -5  24  18 -19  -2  77 -55 -74
  50  38 -94  88 -80 -76  70 -20
 -53  48 -36 -92  70 -76 -14 -36
 -57  30 -76  62 -75 -21   3  93
  57  -7  74 -39  87 -74  65  42
  94 -68  45 -61 -65 -49 -83 -46

*** Матрица - результат [6,8] ***
 -22  75  97  33  10 -58 -50 -11
  50  38 -94  88 -80 -76  70 -20
 -53  48 -36 -92  70 -76 -14 -36
 -57  30 -76  62 -75 -21   3  93
  57  -7  74 -39  87 -74  65  42
  94 -68  45 -61 -65 -49 -83 -46
4,4(54 оценок)
Открыть все ответы
Ответ:
ПЕТУСШОГ
ПЕТУСШОГ
09.01.2021


1)1. Анализ задачи, поиск решения, выбор/разработка оптимального алгоритма
2. Составление/анализ выходных выходных данных для алгоритма
3. Составление/анализ данных для промежуточных вычислений
4. реализация алгоритма на языке программирования
5. тестирование программного кода и сопоставление выходных результатов с поставленой задачей

2) описание задачи математическим языком, в виде формул, зависимостей, закономерностей, последовательностей, понятий

3) поэтапная покомпонентая построчная проверка программного кода с целью осознания того что код работает
так как задумано. Тест это операция над объектом, программой, позволяющая проверить правильность работы

4,6(95 оценок)
Ответ:
анна2248
анна2248
09.01.2021

Такую надо состовлять самому!А вот простой алгоритм для аких случаев по этой проге вроде-

program jfe3;

const n=10; {Это будет кол-во элементов массива}

var a:array [1..n] of integer; i,s:integer;

begin

for i:=1 to n do begin

                            a[i]:=random(100);    {элемент выбирается случайно от 0 до 100}

                            s:=s+a[i];  {Когда эл. присвоился, его значение плюсуется к общ сумме}

                       end;

for i:=1 to n do

writeln(a[i],' ');    {показать сам массив}

writeln(s);   {показать сумму}

readln;  {чтобы окно сразу не закрывалось} END.

 

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