написать программу которая напечатает 2-х мерный массив 4*4 из целых сл.чисел от -12 до +12.Элементы в нечётных строках перемножить и сообщить это произ
5-9 класс
|
ведение в паскале авс
Program asd;
USES crt;
Const n=4;
var A:array [1..n, 1..n] of integer;
i,j,s:integer;
BEGIN
clrscr;
Writeln('Massiv 4x4: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
A[i,j]:=random(12)-6;
Write(' ',A[i,j]:2);
end;
Writeln;
end;
Writeln('Otvet: ');
For i:=1 to n do
begin
for j:=1 to n do
begin
S:=A[i,j];
if A[i,j]<0 then
S:=A[i,j]*S;
Write(' ',S:2)
end;
Writeln;
end;
END.
Хорошая задача, сейчас посмотрим
Другие вопросы из категории
1. Для записи текста использовался 64-символьный алфавит. Какой объем информации в килобайтах содержат 10 страниц текста, если на каждой странице расположено 32 строки по 64 символа в строке?
2. Определи количество информации в книге, набранной на компьютере. Книга содержит 2048 страниц. На каждой странице - 32 строки, в каждой строке - 64 символа. Запиши ответ в наиболее подходящих единицах.
Читайте также
утро","Добрый день","Добрый вечер", "Спокойной ночи". 2)Написать программу,которая определяет,принадлежит ли точка с координатами (x,y)Заштрихованной области,ограниченной точками(x1,y1)(x2,y2).
ввести 3 значное число и находит сумму его цифр.
2. Написать программу, которая предлагает ввести 3 значное число и меняет порядок цифр наоборот. (123- 321)
3.Написать программу, которая предлагает ввести три числа с клавиатуры, находит их сумму, произведение и среднее арифметическое.
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
2)Составить программу которая вычисляет произведение натуральных чисел от 5 до 10.
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n