Дан массив целых чисел C(20) все нечетные элементы заменить на кубы sqr (A[ i]*A [ i ].
10-11 класс
|
const N = 20;
var
a: array[1..N] of integer;
i: integer;
begin
for i := 1 to N do begin
a[i] := random(10);
write(a[i], ' ');
end;
writeln;writeln;
for i := 1 to N do begin
if(a[i] mod 2 <> 0) then a[i] := sqr(a[i]) * a[i];
write(a[i], ' ');
end;
end.
Другие вопросы из категории
1. Что такое запросы?
2. Что такое отчеты?
3. Что такое формы?
4. Что такое бланк запроса?
использовали 128-символьный алфавит?
m1=1/2*sqrt(2a^2+2b^2-c^2); m2=1/2*sqrt(2a^2+2c^2-b^2); m3=1/4*sqrt(2b^2+2c^2-a^2);.
Читайте также
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
среди 10 элементов вещественного массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
-Удвоенную сумму положительных элементов;
-Удалить все четные элементы массива.