Помогите, срочно!!!Задача по паскалю!Заполнить массив из 10 элементов положительных или отрицательных чисел во 2 массив переписать сначала отрицательные а
5-9 класс
|
потом положительные числа, вывести результат
Если я все правильно понял, получается что-то такое:
var a,b:array[1..10] of real;
i,k:integer;
begin
k:=1;
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
if a[i]<0 then
begin
b[k]:=a[i];
write(b[k],' ');
k:=k+1;
end;
for i:=1 to 10 do
if a[i]>=0 then
begin
b[k]:=a[i];
write(b[k],' ');
k:=k+1;
end;
end.
Другие вопросы из категории
Читайте также
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
1. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать его по последней цифре.
2. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать первую половину по возрастанию, а вторую- по убыванию. Здесь решать лучше методом выбора.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.