Блог для маленьких школьников и их родителей
ШколаЛа

Даю 50 баллов. №1 Дан массив A (15). 1. Найти кол-во ненуливых элементов 2. Поменять местами 2-ой и…

Автор:
Предмет: Информатика
Уровень: 10 - 11 класс

Даю 50 баллов.

№1

Дан массив A (15).

1. Найти кол-во ненуливых элементов

2. Поменять местами 2-ой и максимальный элементы

№2

Дан массив A(8,10)

1. Найти кол-во положительных элементов каждого столбца , результат напечатать

Ответов к вопросу: 1
  • yto4kamk
    26.09.2024 | 11:45

    ===== №1 =====
    begin
     var a:= ArrRandom(15, -20, 20);
     a.Println;
     Println(‘Ненулевых:’, a.Count(p -> p <> 0));
     Swap(a[1], a[a.IndexMax]);
     a.Println
    end.

    ===== №2 =====
    begin
     var a := MatrRandom(8, 10, -99, 99);
     a.Println(4);
     Writeln;
     a.Cols.Select(col -> col.Count(p -> p > 0)).
       Foreach(p -> Write(p:4))
    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.