сервис вопросов и ответовДан двухмерный массив 3x4 случайных целых чисел. Преобразовать массив следующим образом: элементы > 10 заменить на разницу номера строки и столбца,
10-11 класс|
|
элементы ∈ [-5; 5] заменить на N строки в квадрате. Полученный массив вывести!
Shevkina86
11 марта 2016 г., 17:43:03 (8 лет назад)
Belovib
11 марта 2016 г., 20:35:10 (8 лет назад)
var
a : array [1..3, 1..4] of integer;
i, j : integer;
begin
for i := 1 to 3 do
for j := 1 to 4 do
a[i, j] := trunc (random (30)) - 10;
for i := 1 to 3 do
for j := 1 to 4 do
if a[i, j] > 10 then a[i, j] := i - j;
for i := 1 to 3 do
for j := 1 to 4 do
if (a[i, j] <= 5) and (a[i, j] >= -5) then a[i, j] := sqr (i);
for i := 1 to 3 do
begin
for j := 1 to 4 do write (a[i, j]:4, ' ');
writeln;
end;
readln;
e
Avarec
11 марта 2016 г., 22:04:48 (8 лет назад)
program P1;
uses
crt;
var
A : array[1..3] of array [1..4] of longint;
i,j : integer;
begin
clrscr;
randomize;
writeln('Massiv : ');
for i := 1 to 3 do
begin
writeln('');
for j := 1 to 4 do
begin
A[i][j] := random(15)+random(5)-random(5);
write(A[i][j]:2,' ');
end;
end;
for i := 1 to 3 do
for j := 1 to 4 do
begin
if A[i][j] > 10 then
A[i][j] := i - j;
if (A[i][j] >= -5) and (A[i][j] <= 5) then
A[i][j] := sqr(i);
end;
writeln('');
writeln('-----------------');
writeln('Itogoviy massiv : ');
for i := 1 to 3 do
begin
writeln('');
for j := 1 to 4 do
begin
write(A[i][j]:2,' ');
end;
end;
readln;
readln;
end.
Ответить
Другие вопросы из категории
Построить
таблицу функции «y» на отрезке [a;b] с шагом «h», вводя соответствующую функцию
в разделе Function: y=3x+x2 ,если x<0; y=3-x-x-2, a=-1; b=2; h=0.2;
В паскале нужно:
Вычислить сумму 4 целых чисел(любых) и вывести развернутое сообщение о проведеной операции
Читайте также
ПАСКАЛЬ.1)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 1000.опишите на русском языке или на одном из
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
1. Пользователем вводится целое число. Вывести на экран последовательность целых чисел от единицы до этого числа.
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
Вы находитесь на странице вопроса "Дан двухмерный массив 3x4 случайных целых чисел. Преобразовать массив следующим образом: элементы > 10 заменить на разницу номера строки и столбца,", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.