В заданном массиве к четным элементам прибавить a .
10-11 класс
|
А из элементов с четным номером вычесть b.
const n=5;
var m:array[1..n] of integer;
i,a,b:integer;
begin
readln(a,b);
for i:=1 to n do readln (m[i]);
for i:=1 to n do
if i mod 2 = 0 then m[i]:=m[i]+a
else m[i]:=m[i]+b;
for i:=1 to n do
writeln ('m[', i,']=', m[i]);
end.
Другие вопросы из категории
Информационная система:структура управления,
классификация информационных систем
Count, Names: array[1..16] of integer;
Begin
For i := 1 to 16 do
begin
Count[i] := 0;
Names[i] := i;
end;
ReadLn(N); {
Считываем количество голосов}
for i:=1 to N do
begin
ReadLn(t); {
считали очередную пару}
Count[t] := Count[t] + 1;{
подсчитываем её}
end;
{Сортируем массивы
Names и Count в порядке убывания
значений массива
Count}
for i:=16 downto 2 do
for j:=2 to i do if Count[j-1]<Count[j] then
begin
t:=Count[j]; Count[j]:=Count[j-1]; Count[j-1]:=t;
t:=Names[j]; Names[j]:=Names[j-1]; Names[j-1]:=t;
end;
for i:=1 to 16 do
if Count[i] > 0 then
writeLn(Names[i], ' ', Count[i]);
end.
Читайте также
(задание номер 5 на фото)
Дан одномерный массив А размерностью 16. Определить максимальное значение среди нечетных элементов массива, и минимальное среди четных элементов массива. Получить сумму максимального и минимального значений элементов массива и преобразовать данный массив по принципу из значений нечетных элементов вычесть сумму, а к четным элементам прибавить сумму. Все первоначальные элементы массива вводятся с клавиатуры.
превышающих среднее арифметическое значение элементов массива
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.