Дан массив d (n). Заменить элементы массива кратные 3 на их удвоеное…

Question

Дан массив d (n). Заменить элементы массива кратные 3 на их удвоеное произведение.

Answer 1

36

mustang

19 марта 2023

program xxx; var i, n: integer d: array[1… 30] of real; begin write ('введите разметность массива n='); readln (n); writeln ('введите элементы массива d: '); for i: =1 to n do readln (d[i]); writeln ('исходный массив D: '); for i: =1 to n do write (d[i]); for i: =1 to n do if d[i] mod 3=0 then d[i]: =2*d[i]; writeln ('полученный массив D: '); for i: =1 to n do write (d[i]); readlnend.

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

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

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

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

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