Написать программу в Паскале?

Dianach99 5 февр. 2020 г., 18:15:25

Const n = 3 ;

var a : array[1.

N, 1.

N] of integer ;

ss : array[1.

N] of integer ;

i, j, s, k, max : integer ; sr : real ;

begin

writeln('Исходный массив : ') ;

for i : = 1 to n do

for j : = 1 to n do a[i, j] : = random(121) - 60 ;

for i : = 1 to n do begin

for j : = 1 to n do write(a[i, j] : 5) ;

writeln ;

end ;

for i : = 1 to n do

for j : = 1 to n do

if (i = 3) and (a[i, j]< ; 0) then begin

s : = s + a[i, j] ;

k : = k + 1 ;

end ;

sr : = s / k ;

writeln('Ср.

Арифм.

Отрицательных элементов 3 строки : ', sr) ;

writeln('После обнуления : ') ;

for i : = 1 to n do

for j : = 1 to n do

if (j = n - i + 1) and (a[i, j] mod 2 = 0) then a[i, j] : = 0 ;

for i : = 1 to n do begin

for j : = 1 to n do write(a[i, j] : 5) ;

writeln ;

end ;

writeln('Одномерный массив из элементов, имеющих значение больше - 5 : ') ;

for i : = 1 to n do

for j : = 1 to n do

if (a[i, j]> ; - 5) then write(a[i, j], ' ') ;

writeln ;

writeln('Максимальный элемент массива в 1 стоблце : ') ;

max : = a[1, 1] ;

for i : = 1 to n do

for j : = 1 to n do

if a[i, 1]> ; max then max : = a[i, 1] ;

write(max) ;

writeln ;

writeln('Сумма элементов в каждой строке массива : ') ;

for i : = 1 to n do

ss[i] : = 0 ;

for i : = 1 to n do

for j : = 1 to n do

ss[i] : = ss[i] + a[i, j] ;

for i : = 1 to n do write(ss[i] : 5) ;

writeln ;

end.

Lieraievsieiev 2 янв. 2020 г., 16:57:31 | 10 - 11 классы

Составить задачу в Паскале?

Составить задачу в Паскале.

Составьте программу вычисления суммы нечетных элементов одномерного массива А (Т).

Массив заполнить случайным образом.

Ephemeral 14 июл. 2020 г., 02:29:23 | 5 - 9 классы

Составьте программу которая запрашивает значения элементов одномерного числового массива а, стоящего из 10 элементов, формирует и выводит на экран в строку данный массив?

Составьте программу которая запрашивает значения элементов одномерного числового массива а, стоящего из 10 элементов, формирует и выводит на экран в строку данный массив.

Найти сумму неположительных элементов массива, количество элементов кратных 3, произведение элементов, стоящих на четных местах.

Tarik9696bkru 26 окт. 2020 г., 12:21:14 | 10 - 11 классы

Решите, пожалуйста, задачу на Паскале?

Решите, пожалуйста, задачу на Паскале.

Найти среднее арифметической каждой строки в двумерном массиве и скинуть в новый массив.

Kris656 29 мая 2020 г., 11:19:10 | 10 - 11 классы

Написать программу и блок - схему для решения следующей задачи?

Написать программу и блок - схему для решения следующей задачи.

В двумерном массиве, состоящем из целочисленных элементов, поменять местами : в каждом столбце первый и последний отрицательные элементы ;

(Паскаль).

Veronchick 9 мая 2020 г., 04:09:44 | 5 - 9 классы

Всем добрый вечер?

Всем добрый вечер.

Как написать программу для такой задачи : В одномерном массиве заменить на ноль четные элементы?

Dracula666 4 нояб. 2020 г., 05:05:36 | 10 - 11 классы

Заполнить матрицу А 5х5 случайными числами до 20 и далее выполнить задание : 1?

Заполнить матрицу А 5х5 случайными числами до 20 и далее выполнить задание : 1.

Найти максимальный элемент на побочной диагонали ; 2.

Составить одномерный массив В из минимальных элементов каждой строки ; 3.

В одномерном массиве В найти среднее арифметическое и вывести на экран элементы массива В, которые больше среднего арифметического.

Ldinka73 2 нояб. 2020 г., 21:12:06 | 10 - 11 классы

Задан двумерный массив Y из 4 - х строк и 4 - х столбцов?

Задан двумерный массив Y из 4 - х строк и 4 - х столбцов.

Составить программу, которая вычисляет S – сумму элементов побочной диагонали и значение суммы всех элементов массива

На с + + подробне пожалуйста эту задачу я не понял что то.

Катюшащенок 21 нояб. 2020 г., 01:23:06 | 10 - 11 классы

Помогите написать программу В одномерном массиве, состоящем из 15 вещественных элементов (значения элементов массива задать случайными числами из интервала [ - 10 ; 10]), вычислить произведение элемен?

Помогите написать программу В одномерном массиве, состоящем из 15 вещественных элементов (значения элементов массива задать случайными числами из интервала [ - 10 ; 10]), вычислить произведение элементов массива, расположенных между максимальным и минимальным элементами.

Сформировать из этих элементов новый массив.

Катерина706 18 янв. 2020 г., 03:57:13 | 5 - 9 классы

Найдите сумму всех элементов двумерного массива и сумму элементов каждой строки?

Найдите сумму всех элементов двумерного массива и сумму элементов каждой строки.

(паскаль).

22021977 29 дек. 2020 г., 06:05:16 | 5 - 9 классы

Написать программу по нахождению максимального элемента если элементы массива заполнены случайными числами в интервале от - 50 до 50?

Написать программу по нахождению максимального элемента если элементы массива заполнены случайными числами в интервале от - 50 до 50.

(Паскаль).