Заполнить матрицу из 7 строк и 7 столбцов случайными числами в интервале [-10;10] и вывести на экран. Обнулить элементы отмеченный зеленым фоном и
10-11 класс
|
вывести полученную матрицу на экран.
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.
Другие вопросы из категории
1) WAP
2) MMS
3) SIM
4) SMS
5) GSM
2-Как использовать ячейку электронной таблицы в качестве кнопки для перехода в другое место?
3-Где хранится содержимое списка для формы ПОЛЕ СО СПИСКОМ?
4-Форма ПОЛЕ СО СПИСКОМ связана с ячейкой С8. Что появится в ячейке С8 при выборе второго ответа из списка? Заранее благодарю!
каждому запросу. Для обозначения логической операции «ИЛИ» в запросе используется символ |, а для логической операции «И» – &.
1. кролики
Читайте также
Удвоить все элементы матрицы и вывести ее на экран.
Найти минимальные и максимальные элементы в матрице, указать номера.
Просто матрица и удвоенная есть. Теперь нужно найти мин. и макс. значения
program ff;
uses crt;
const n=8;
m= 5;
var a:array [1..n, 1..m] of integer;
i,j:integer;
begin
writeln ('Матрица:');
for i:=1 to 8 do begin
for j:=1 to 5 do begin a[i,j]:=-10+random(21);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to 8 do
for j:=1 to 5 do
a[i,j]:=a[i,j]*2;
writeln ('Удвоенная матрица:');
for i:=1 to 8 do begin
for j:=1 to 5 dowrite(a[i,j]:4);
writeln;
end;
end.
Удвоить все элементы матрицы и вывести ее на экран.
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
экран с 20 по 50 в строку через пробел
2.для первыз десяти элементов найти среднее арифмитическое
3.вывести на экран только четные элементы с 1 по 10 элементы массива
4.найти сумму нечетныз значений с 20 по 50 элемент
5.найти количество элементов кратныз заданному числу,введёного с клавиатуры среди всез элементок линейного массива