Создать массив размерностью 5 на 5 в диапазоне от -20 до 20. k, n = 1, 2, 3, 4, 5. вывести его на экран в виде таблицы (матрицы). вычислить количество положительных элементов и их про¬изведение.
Var a: array[1..5,1..5] of integer; i,j,p,s: integer; begin Writeln('Введите элементы матрицы: '); for i:= 1 to 5 do for J:=1 to 5 do read(a[i,j]); for i:= 1 to 5 do begin for j:= 1 to 5 do write(A[i,j], ' ' ) ; writeln(); end; p:= 1; s:= 0; for i:= 1 to 5 do for J:=1 to 5 do if a[i,j] > 0 then begin s:= s+1; p:= p*a[i,j]; end; Writeln('Количество положительных элементов = ', s); Writeln('Произведение положительных элементов = ', p); end.
Один раз мы с Мишей были в игрушечном магазине и увидели замечательную игрушку - телефон. В большой деревянной коробке лежали два телефонных аппарата, две трубки, в которые говорить и слушать, и целая катушка проволоки. Продавщица объяснила нам, что если один телефон поставить в одной квартире, а другой - у соседей и соединить оба аппарата проволокой, то можно переговариваться. Мы захотели его купить! Это не какая-нибудь простая игрушка, которую поломаешь и выбросишь. Это полезная вещь! Мы с Мишей решили собирать деньги, чтобы купить телефон. Две недели подряд мы не ели мороженого, не ходили в кино - всё деньги копили. Наконец насобирали сколько было нужно и купили телефон. Примчались из магазина домой с коробкой. Один телефон у меня поставили, другой - у Мишки и от моего телефона протянули проволоку через форточку вниз, прямо к Мишкиному телефону. Я помчался к себе, взял трубку и слушаю, а трубка уже кричит Мишкиным голосом! Нашему счатстью небыло предела!
Жили были Дед да Бабка. Однажды Бабка говорит Деду: Иди старый смастери чего нибудь нового, чего на свете еще нету. Долго думал Дед, что смастерить да придумал. День работал, ночь работал и так две недели. Потом приносит бабушке iPhone 7, вот Бабка гляди, телефон который еду готовит. Положи они его на стол, нажали на кнопочки и выбрали еду, только они сказали, как на столе появились пироги да мясо. Наелись до сыта они и легли спать. Тут приходит Кузьмич, он тоже своего дело мастер, мастерит ведра под названием Android, увидел он чудо техники и решил избавиться от него. Залез тихонько через окно и только дотянулся до телефона, как тот зазвенел, да так громка что вся деревня услышала, тут подбегает дед с ружьем и бабка со скалкой. Наругали они Кузьмича, да выгнали с деревни. Больше никто его никогда не видел.
i,j,p,s: integer;
begin
Writeln('Введите элементы матрицы: ');
for i:= 1 to 5 do
for J:=1 to 5 do
read(a[i,j]);
for i:= 1 to 5 do
begin
for j:= 1 to 5 do
write(A[i,j], ' ' ) ;
writeln();
end;
p:= 1;
s:= 0;
for i:= 1 to 5 do
for J:=1 to 5 do
if a[i,j] > 0 then
begin
s:= s+1;
p:= p*a[i,j];
end;
Writeln('Количество положительных элементов = ', s); Writeln('Произведение положительных элементов = ', p);
end.