Сост алг замены элементов массива от В[N],не больших 15,их кубами
5-9 класс
|
const
n = 10;
k = 15;
var
a: array[1..50] of integer;
i: integer;
begin
for i := 1 to n do
begin
a[i] := random(40);
write(a[i]:7);
if a[i] < 15 then a[i] := a[i] * a[i] * a[i];
end;
writeln;
for i := 1 to n do
write(a[i]:7);
end.
var
i,n: integer;
B:array [1..100] of integer;
begin
writeln('Введите длину массива: ');
read(n);
for i:=1 to n do begin
writeln('Введите ',i,'-й элемент массива');
readln(B[i]);
if B[i] <= 15 then B[i]:=B[i]*B[i]*B[i];
end;
for i:=1 to n do writeln('Результат: ',B[i]);
end.
спасибо) нужно составить пока алгоритм не для компьютера а на тетрадном листе) начало,если,цикл,конец,кцикл и тд
не знаю я такого)
Другие вопросы из категории
Читайте также
элементов с нечётными индексами
2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве
ести максимальное значение среди трехзначных элементов массива, делящихся на 4. Если в исходном массиве нет трехзначного элемента, который делится на 4, то вывести сообщение о том, что такого числа нет.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
в,их значения и количество.
2.В одномерном массиве целых чисел,содержащем 20 элементов,удалить k-ый элемент массива.Массив заполняется случайным образом числами от 0 до 50.
кратных числу 3.
2) составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 100 и выводит на экран среднее арифмитическое элементов массива