Дан массив A[1..10] заменить четные элементы этого массива на их квадрат.
5-9 класс
|
Решение нужно для 9 класса на pascalABC
var a:array[1..1000] of integer;
i,n:integer;
begin
randomize;
write('Введите количество элементов массива n='); readln(n);
for i:=1 to n do begin
a[i]:=random(100)-40; write (a[i],' '); end;
writeln('Новый массив: ');
for i:=1 to n do
if mod 2 = 0 then a[i]:=sqr(a[i]);
for i:=1 to n do
write(a[i],' '); ;
end.
Другие вопросы из категории
ответы один из этих:
a)a=3,b=18
b)a=6,b=18
c)a=6,b=36
d)a=6,b=12
допускающие только ответы "да" или "нет". Коля старается за наименьшее число вопросов отгадать число, задуманное Петей. Его стратегия основана на делении числового интервала пополам и выяснении, в какой из половин находится задуманное число.
Читайте также
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.