Регистрация
Ekaterina2019
10.10.2020 12:48
Информатика
Есть ответ 👍

8.2. дан массив из целых чисел а(5,5). все отрицательные элементы заменить на -1.

212
439
Посмотреть ответы 2

Ответы на вопрос:

BaVeRSB
BaVeRSB
4,8(43 оценок)
Обычно размер указывают, раз нету, взял по дефолту 10(const n=10). и диапазон какой-то странный, думаю имелось введу (-5; 5) program g; uses crt; const n=10; var i: integer; mass: array [1..n] of integer; begin     randomize;   clrscr;   writeln('исходный массив из 10 чисел диапозона (-5; 5): ');   for i: =1 to n do   begin     mass[i]: =random(11)-5;     write(mass[i]: 4);   end;   writeln;   writeln('исходный массив после замены всех отрицательны на -1: ');   for i: =1 to n do   if mass[i]< 0 then mass[i]: =-1;   for i: =1 to n do write(mass[i]: 4);   readln;   end.
Student12123
Student12123
4,4(72 оценок)

// PascalABC.NET

begin

 var (n, m) := ReadInteger2;

 var a := ReadMatrInteger(n, m);

 var k := ReadInteger;

 a.ElementsByRow.Count(p -> p = k).Print

end.

Популярно: Информатика