ВАРІАНТ 1
1. Скласти програму введення та виведення матриці A:
2. Скласти блок-схему алгоритму та програму обчислення кількості додатних елементів
матриці С(N, N).
3*. Скласти програму введення матриці В, не використовуючи клавіатуру:
ВАРІАНТ
2
1. Скласти програму введення та виведення матриці A:
2. Скласти блок-схему алгоритму та програму обчислення кількості від’ємних
елементів матриці С(N, N).
3*. Скласти програму введення матриці В, не використовуючи клавіатуру:
ВАРІАНТ 3
1. Скласти програму введення та виведення матриці A:
2. Скласти блок-схему алгоритму и
програму обчислення в матриці B(N, N) кількості елементів, менших, ніж 5.
3*. Скласти програму введення матриці C, не використовуючи клавіатуру:
ВАРІАНТ 4
1. Скласти програму введення та виведення матриці A:
2. Скласти блок-схему алгоритму и
програму обчислення в матриці B(N, N) кількості елементів, більших, ніж 4.
3*. Скласти програму введення матриці C, не використовуючи клавіатуру:
Приклад
розв’язування варіанту 4.
Виконав:
Прізвище Ім’я 10а 30 вересня 2010
І
завдання.
Program zadacha1;
uses
crt;
var
a:array[1..3,1..6] of integer;
i,j:integer;
begin
clrscr;
for i:=1 to 3 do
begin
for j:=1 to 6
do
begin
write(’a[’,i,’,’,j,’]=>’);readln(a[i,j]);
end;
end;
writeln
(’Матриця a:’);
for i:=1 to 3 do
begin
for j:=1 to 6
do
begin
write(a[i,j]:3);
end;
writeln;
end;
readkey;
end.
ІІ завдання.
Program zadacha2;
uses
crt;
var
b:array[1..5,1..5] of integer;
i,j,k:integer;
begin
clrscr;
for i:=1 to 5 do
begin
for j:=1 to 5
do
begin
b[i,j]:=random(100);
write(b[i,j]:4);
end;
writeln;
end;
k:=0;
for i:=1 to 5 do
begin
for j:=1 to 5
do
begin
if b[i,j]>4 then k:=k+1;
end;
end;
writeln(’Елементів, більших, ніж 4, є
’,k);
readkey;
end.
ІІI завдання.
Program zadacha2;
uses
crt;
var
c:array[1..3,1..6] of integer;
i,j,k:integer;
begin
clrscr;
for i:=1 to 3 do
begin
for j:=1 to 6
do
begin
if i+j<8 then c[i,j]:=j else c[i,j]:=0;
write(c[i,j]:4);
end;
writeln;end;readln;end. web.book2007@gmail.com