положительные элементы массива замените на 10, а отрецательные на -10
10-11 класс
|
uses crt;
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:3);
if a[i]>0 then a[i]:=10 else a[i]:=-10;
end;
writeln;
for i:=1 to n do
write(a[i]:3);
end.
sosssssssssssssssss
Другие вопросы из категории
Составить алгоритм через паскаль.Введите с клавиатуры три числа авс.если а=в.то все числа замените квадратами если а>b>c то каждое число замените наибольшим, иначе: а сделайте равным сумме в и с, с обнулите, в оставьте без изменения»
DDoS-атака из 5 разных точек. Интервалы атаки из разных точек разные и атаки совершаются соответственно с интервалом в 1 час, 2 часа, 3 часа, 4 часа и 5 часов. Сервер не выдерживает нагрузки только если его атакуют сразу из 5 точек одновременно. Скажите, сколько часов есть у администратора, чтобы закрыть доступ к серверу до того как он(сервер) перестанет работать из-за успешной атаки?
1) 120
2) 60
3) 40
4) 10
Читайте также
о том, что в массиве положительных элементов нет.
прошу вас решите!
одном из языков программирования алгоритм, позволяющий найти и вывести максимальное значение среди трехзначных элементов массива, оканчивающихся на 0
одном из языков программирования алгоритм, позволяющий найти и вывести максимальное значение среди трехзначных элементов массива, оканчивающихся на 0
Значения элементов массива ввести с клавиатуры. Только можно поподробней)
рассчитать по формуле tgG, где G номер элемента массива