Дан массив: 2, 7, 76, 92, 3.77, 0.5, 6. Получите новый массив квадратов этих элементов. Выполните вывод полученного массива на экран в одну строку через
5-9 класс
|
пробел.
var a:array[1..7] of real;
i:integer;
begin
a[1]:=2; a[2]:=7; a[3]:=76;
a[4]:=92; a[5]:=3.77; a[6]:=0.5; a[7]:=6;
for i:=1 to 7 do
begin
a[i]:= sqr(a[i]);
write(a[i],' ');
end;
end.
Другие вопросы из категории
Вычислите значение логических выражений. То что написано А - истина B - ложь это не правильно, это зачеркнуто(не обращайте внимание)
Дан массив натуральных чисел, состоящий из n элементов. Найти сумму элементов массива, кратных данному числу К.
алгоритмов:
в одномерном массиве произвольных чисел требуется заменить числом 100 значения всех элементов, удовлетворяющих условию A[i]>=5
Читайте также
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.