Дан массив найти произведение отрицательных элементов и кратных 7

Question

Дан массив найти произведение отрицательных элементов и кратных 7

Answer 1

74

vitorrio

25 февраля 2023

Program Massiv; Uses Crt; const n=10 {размер массива} var i,k: integer; a: array[1… n] of integer; begin clrscr; write ('Введите элементы массива: '); k: =1 for i: =1 to n do begin readln (a[i]); if (a[i]<0) and (a[i] mod 7)=0 then k: =k*a[i]; end; writeln; write ('Исходный массив: ') for i: =1 to n do write (a[i]: 3); writeln; writeln ('Произведение отрицательных элементов кратных 7: ',k); readkey; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: