Регистрация
vipamalia03
15.12.2021 10:50
Информатика
Есть ответ 👍

решить задачи на языке программирования Delphi. Задача 1. Задан массив A(N,N), заполненный целыми случайными числами из диапазона [-27;28]. Найти произведение ненулевых элементов массива.

Задача 2. Задан массив A(N), заполненный случайными целыми числами из диапазона [-18,24]. Составить программу нахождения третьего отрицательного элемента массива.

196
199
Посмотреть ответы 1

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

Zxcvvn
Zxcvvn
4,8(39 оценок)
Var a,k: integer; begin k: =-1; repeat read(a); if (abs(a) mod 10 = 5)or(a mod 3 = 0) then k: =k+1; until a = 0; write(k) end.

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