дан массив из четного числа элементов. поменять местами его половины
1-4 класс
|
DaSi43
27 мая 2016 г., 4:21:20 (7 лет назад)
Anyuta201888
27 мая 2016 г., 5:05:39 (7 лет назад)
const
N = 20;
var
A : array [1..N] of Integer;
Pos, Sum, Znak : Integer;
begin
Write('Массив: ');
Randomize;
for Pos := 1 to N do
begin
A[Pos] := Random(101) - 50;
Write(A[Pos]:4);
end;
WriteLn;
for Pos := 1 to N div 2 do Sum := Sum + A[Pos] -A[N div 2 + Pos];
WriteLn('Разность между суммой 1-й половины и 2-й = ', Sum);
end.
Ответить
Другие вопросы из категории
Читайте также
Дан одномерный массив B(10). Заполнить массив случайными числами из промежутка [0;1) и вывести его на экран в строку.
( Напишите полную программу)
Вы находитесь на странице вопроса "дан массив из четного числа элементов. поменять местами его половины", категории "информатика". Данный вопрос относится к разделу "1-4" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.