Создать массив из 12 целых чисел.Нечетные элементы увеличить на их номер.Положительные элементы уменьшить в три раза.
5-9 класс
|
Var mas:array[1..12] of integer;
mas1:array[1..12] of real;
i:integer;
Begin
for i:=1 to 12 do begin
mas[i]:=random(5000);
if (mas[i] mod 2 <> 0) then mas[i]:=mas[i]+i;
mas1[i]:=mas[i];
if (mas1[i] > 0) then mas1[i]:=mas1[i]/3;
writeln(mas1[i]);
end;
end.
я не смогу проверить, ведь числа рандомные :)
рандом это значит случайность
в этом коде я сделал рандом от 0 до 4999
Другие вопросы из категории
размером 64 × 128 пикселей отвели 8 Кбайт памяти. Какое
максимально возможное число цветов в палитре изображения?
тетради. Написать программу к задаче в тетради.
Читайте также
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.
чисел и выводит на экран этот же массив в прямом и обратном порядке. Протестировать алгоритм на произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.
2. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с чётными номерами. Протестировать алгоритм на произвольных массивах размерностью 5 и 8 элементов.
3. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с нечётными номерами в обратном порядке. Протестировать алгоритм для следующих исходных данных:
а) 1 3 5 6 8 9
б) -1 4 6 2 4 6 8 6 9
P.S. Убедительная просьба написать решение целиком и до наступления ночи. Я являюсь дилетантом в Паскале, а эти три задачи являются моим домашним заданием по информатике на завтра.
данных:
а) k=3 Массив: 2 6 -9 4 5 12 -15
б) k=4 Массив: 9 0 8 124 -16 11 19
НА ПАСКАЛЕ
Формат входных данных
В певой строке входного файла содержится одно целое число n(1<=n<=200).Во второй строке находятся n целых чисел a1,a2...aN (-1000<=ai<=1000)-елементы массива.
Формат выходных данных
В единственной строке выходного файла выведите одно слово "YES",если в этом массиве есть три числа сумма которых равна нулю.Иначе выведите "NO".