Программа в паскале. Надо двумерный массив ввывести змейкой по горизонтали справа на лево(5*5)
5-9 класс
|
VAR
i, j, k: Integer;
a, b: Array [1..5] of Array [1..5] of Integer;
BEGIN
For i := 1 to 5 do
For j := 1 to 5 do Read(a[i][j]);
k := 1;
For i := 1 to 5 do
If (Odd(i)) then
For j := 5 downto 1 do begin
b[i][j] := a[((k-1) div 5)+1][((k-1) mod 5)+1]; Inc(k); End
Else
For j := 1 to 5 do begin
b[i][j] := a[((k-1) div 5)+1][((k-1) mod 5)+1]; Inc(k); End;
For i := 1 to 5 do begin
For j := 1 to 5 do Write(b[i][j]:2, ' ');
Writeln; End;
END.
Другие вопросы из категории
(написать на языке программы паскаль, и если кто забыл, то квадрат суммы это - квадрат первого числа плюс удвоенное произведение первого на второе плюс квадрат второго числа )
отображаемых цветов,равным 16777216.
Читайте также
результаты.:
· Если первое из них отрицательно, а второе вдвое больше третьего, то выведите среднее арифметическое всех четырех чисел.
· Если произведение этих чисел больше их суммы, то выведите эти сумму и произведение.
· Если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих чисел, их произведение и сумму
· Иначе, выведите удвоенные значения этих чисел
программу ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значемиями
составить программу которая вычисляет суммы элементов столбцов двумерного массива и записывает их в одномерный массив