Вопрос по информатике:
Заполнить матрицу из 7 строк и 7 столбцов случайными числами в интервале [-10;10] и вывести на экран. Обнулить элементы отмеченный зеленым фоном и вывести полученную матрицу на экран.
- 03.02.2017 10:27
- Информатика
- remove_red_eye 1435
- thumb_up 95
Ответы и объяснения 1
Program Pr1;
uses crt;
var mas:array[1..7,1..7] of real;
var i,j,v:integer;
Begin
clrscr;
v:=7;
randomize;
for i:=1 to 7 do
for j:=1 to 7 do mas[i,j]:= random(20)-10;
for i:=1 to 7 do begin
for j:=v to 7 do mas[i,j]:=0;
v:=v-1;
end;
for i:=1 to 7 do
for j:=1 to 7 do begin
gotoxy(j,i);
write(mas[i,j]);
end;
end.
- 03.02.2017 22:05
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.