1 год назад

Дан массив из n чисел. Составить программу для вычисления суммы элементов массива, имеющих чётные индексы. Паскаль

1 ответ:

0 0

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Write('Сумма элементов с четными индексами ',
a.Where((x,i)->i.IsOdd).Sum)
end.

Пример
n= 13
81 6 -34 -33 -13 86 -14 -49 -28 -20 -93 5 -62
Сумма элементов с четными индексами -5

Читайте также

ПОМОГИТЕ РЕШИТЬ Для кодирования некоторой последовательности, состоящей из букв А, Б, В, Г и Д, используется неравномерный трои

СтасяК [7]

В теории можно это буква в её код 20 а как я знаю нули из числа можно убирать пример (в двоичной системе) число 100100 оно занимает два байта то есть 00000000 00100100 ели я не прав отметь мой ответ как неправильный

0 0

4 года назад

Напишите программу,которая запрашивает у пользователя ввод чисел,пока не будет нажата цифра "ноль".На экран выводит сумму всех в

Марина 174

Var a,s:integer;
begin
writeln ('Введите целое число');
a:=1;
while a<>0 do
begin
readln (a);
s:=a+s;
end;
writeln ('Сумма всех введенных чисел = ', s);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Создать персональную страницу . Условия: 1)3 страницы(гиперссылки) 2)Фон, Цвет, Разного положения текст. 3)Картинки, Анимации

Риго4 [50]

Як я маю тобі це показати на блокноті, якщо це все треба робити на копі?

0 0

4 года назад

Производится двухканальная стерео звукозапись с частотой дискретизации 16 Кгц и 4 битным разрешением. запись длится полминуты. о

DEMON7 [11]

Формула нахождения объема закодированного звука
A = D * i * t * c (D - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов)
Приводим единицы измерения
D = 16 кГц = 16000 Гц
t = 30.0 c

A = D * i * t * c = 16000 * 4 * 30.0 * 2 = 3840000.0 бит = 468.75 Kбайт = 0.457763671875 Мбайт

0 0

4 года назад

помогите плиз с паскал абц В магазине продается костюмная ткань. Ее цена В руб. за квадратный метр. Составьте алгоритм и програм

Show must go on

uses crt;
var b,x:real;
begin
write('Введите длину ткани: ');
readln(x);
write('Введите стоимость квадратного метра ткани: ');
readln(b);
writeln('Стоимость ткани длиной ',x,' метров равна ',0.8*x*b);{кусок длиной 1.25 м и шириной 0.8 метра имеет площадь 1 квадратный метр и стоит ровно B рублей}
end.

0 0

2 года назад