Сотавить программу, которая заполняет массив a[1… 10] сучайными целыми числами в…

Question

83

Сотавить программу, которая заполняет массив a[1… 10] сучайными целыми числами в диапозоне от 1 до 10, а затем преобразет его по следующему правилу: всечетные элементы умножить на 42, а нечетные поделить на -3. Если в массиве нету четных элемнтов, то четные элементы не надо умножать на 42 (Кэп подсказал).

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

nikon_3 · Accepted Answer

40

nikon_3

17 апреля 2023

var a: array [1… 10] of integer; i: integer; beginfor i: =1 to 10 dobegina[i]: =random (10); if a[i] mod 2=0 then a[i]: =a[i]*42 else a[i]: =a[i]*(-3); end; for i: =1 to 10 dowriteln ('a[',i,']=',a[i]); readln; end.

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

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

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

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