Заполнить
10-11 класс
|
массив случайными числами (положительными и отрицательными) из произвольного
диапазона. Вывести созданный массив на экран, расположив элементы в одну строку
через пробелы. Заменить все отрицательные элементы квадратом соответствующего
индекса
const
n = 15;
var
i: integer;
a: array[1..n] of integer;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := Random(100) - 50;
write(a[i]:6);
if a[i] < 0 then a[i] := sqr(i)
end;
writeln;
writeln('Результирующий массив');
for i := 1 to n do write(a[i]:6);
writeln
end.
Тестовое решение:
Исходный массив
3 37 40 17 20 -12 -27 4 34 -1 9 42 -6 -36 28
Результирующий массив
3 37 40 17 20 36 49 4 34 100 9 42 169 196 28
Другие вопросы из категории
характеризуется параметром потока данных в секунду (бит/сек, кбит/сек). Если
принять, что качество звука установлено в 73728 бит/сек, определите, какой
объем в байтах займет файл 8 секундной аудиозаписи без сжатия
потом 3.
var x, i, K, R, y: integer;
begin
readln(x);
K := 0; R := 9;
y := x mod 10;
while x > 0 do begin
K := K + 1;
if R > x mod 10 then
R := x mod 10;
x := x div 10
end;
R := y - R;
writeln(K); writeln(R)
end.
Читайте также
Заполните массив степенями числа 2( от 2(в первой степени) до 2(в N степени)
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!
системах счисления: