Регистрация
Войти
Стать экспертом Правила
Информатика | 2 курс

1. Дана таблица 5*5. Подсчитать произведение элементов главной диагонали этой таблицы.


2. Дана таблица 6*4. Среди элементов таблицы есть одинаковые. Подсчитать их количество.



Сделать программу и блок схему на языке паскаль[B][/B]

ОТВЕТЫ

1. uses crt;

const m=5;

var a:array[1..m,1..m] of integer;

p,n,i,j:integer;

begin

clrscr;

randomize;

write('vvedite razmer=');

readln(n);

writeln('matrica:');

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(6);

write(a[i,j]:4);

end;

writeln;

end;

writeln;

p:=1;

for i:=1 to n do

p:=p*a[i,i];

write('Proizvedine=',p);

readln

end.

СПАСИБО 1
Для написания вопросов необходимо войти в систему
Смежные вопросы:
Контакты
Обратная связь
support@sproshu.net
Спрошу
О проекте
Новым пользователям
Новым экспертам