Регистрация
SavchukAndrew
09.03.2022 12:12
Информатика
Есть ответ 👍

Решить pascal:
1.ввести двухмерный массив, состоящий из 5 строк по 10 элементов. заменить отрицательные элементы на противоположные по знаку. вывести полученный массив на экран.
2.ввести двухмерный массив, состоящий из [n,m] элементов. найти и вывести на экран номера четных элементов.
3.ввести двухмерный массив, состоящий из [т,k] элементов. найти количество положительных и отрицательных элементов в данном массиве.
4.ввести двухмерный массив, состоящий из [n,m] элементов. удалите из массива третий элемент во второй строке.
5.ввести двухмерный массив, состоящий из [n.m] элементов. вставьте в массив число 100 после пятого элемента в 3 строке.
6.ввести двухмерный массив, состоящую из [n,m] элементов. найдите сумму всех элементов.

224
433
Посмотреть ответы 1

Ответы на вопрос:

secret666
secret666
4,5(32 оценок)
Var   n,i,s: integer; begin   write('введите число n: ');   readln(n);   for i: = 1 to n do   s: =s+sqr(i);   write(s); end. 2. var   a,max: integer; begin   repeat   write('введите число ');   readln(a);   if a> max then max: =a;   until a=0;   write(max); end.

Популярно: Информатика