Помогите, пожалуйста!! Язык программирования Паскаль.1) Отыскать количество отрицательных
Помогите, пожалуйста!! Язык программирования Паскаль.
1) Найти количество отрицательных частей в массиве А [3,8].
2) Заполнит и вывести массив Р [6,7], запросить номер строки и вывести её на экран.
3) Заполнить и вывести массив Р [6,7], запросить номер строчки, поменять все её элементы на 5 и вывести новый массив.
4) В квадратной матрице А [10,10] поменять элементы главной диагонали на 0.
Всё необходимо очень срочно
1 ответ
Tgichenjuk Kostja
1
var
i, j, n: integer;
a: array[1..3, 1..8]of integer;
begin
for i := 1 to 3 do
begin
for j := 1 to 8 do
begin
a[i, j] := random(-9, 9);
write(a[i, j]:3);
if a[i, j] lt; 0 then n := n + 1;
end;
writeln;
end;
writeln('Количество отрицательных: ', n);
end.
2
var
i, j, n: integer;
p: array[1..6, 1..7]of integer;
begin
for i := 1 to 6 do
begin
for j := 1 to 7 do
begin
p[i, j] := random(-9, 9);
write(p[i, j]:3);
end;
writeln;
end;
write('Какую строчку вывести: ');
readln(n);
for j:=1 to 7 do write(p[n,j]:3);
end.
3
var
i, j, n: integer;
p: array[1..6, 1..7]of integer;
begin
for i := 1 to 6 do
begin
for j := 1 to 7 do
begin
p[i, j] := random(-9, 9);
write(p[i, j]:3);
end;
writeln;
end;
write('Какую строчку изменить: ');
readln(n);
for j:=1 to 7 do p[n,j]:=5;
for i := 1 to 6 do
begin
for j := 1 to 7 do write(p[i, j]:3);
writeln;
end;
end.
4
var
i, j, n: integer;
a: array[1..10, 1..10]of integer;
begin
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
a[i, j] := random(-9, 9);
write(a[i, j]:3);
end;
writeln;
end;
for j:=1 to 10 do a[j,j]:=0;
writeln('Модифицированный массив: ');
for i := 1 to 10 do
begin
for j := 1 to 10 do write(a[i, j]:3);
writeln;
end;
end.
var
i, j, n: integer;
a: array[1..3, 1..8]of integer;
begin
for i := 1 to 3 do
begin
for j := 1 to 8 do
begin
a[i, j] := random(-9, 9);
write(a[i, j]:3);
if a[i, j] lt; 0 then n := n + 1;
end;
writeln;
end;
writeln('Количество отрицательных: ', n);
end.
2
var
i, j, n: integer;
p: array[1..6, 1..7]of integer;
begin
for i := 1 to 6 do
begin
for j := 1 to 7 do
begin
p[i, j] := random(-9, 9);
write(p[i, j]:3);
end;
writeln;
end;
write('Какую строчку вывести: ');
readln(n);
for j:=1 to 7 do write(p[n,j]:3);
end.
3
var
i, j, n: integer;
p: array[1..6, 1..7]of integer;
begin
for i := 1 to 6 do
begin
for j := 1 to 7 do
begin
p[i, j] := random(-9, 9);
write(p[i, j]:3);
end;
writeln;
end;
write('Какую строчку изменить: ');
readln(n);
for j:=1 to 7 do p[n,j]:=5;
for i := 1 to 6 do
begin
for j := 1 to 7 do write(p[i, j]:3);
writeln;
end;
end.
4
var
i, j, n: integer;
a: array[1..10, 1..10]of integer;
begin
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
a[i, j] := random(-9, 9);
write(a[i, j]:3);
end;
writeln;
end;
for j:=1 to 10 do a[j,j]:=0;
writeln('Модифицированный массив: ');
for i := 1 to 10 do
begin
for j := 1 to 10 do write(a[i, j]:3);
writeln;
end;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Облако тегов