Дан массив MAS вещественного типа, содержащий 20 положительных и отрицательных элементов?

Foto5678 18 мая 2018 г., 01:10:28

Const n = 20 ;

var arrA, arrC : array[1.

N] of real ;

i, j : byte ;

sum : real ;

begin

randomize ;

writeln('Array A : ') ;

for i : = 1 to n do begin

arrA[i] : = random() * 10 - 5 ; write(arrA[i] : 6 : 2) ;

if i mod 10 = 0 then writeln ;

end ;

i : = 2 ;

j : = 0 ;

sum : = 0 ;

while i < ; = n do begin if arrA[i] > ; 0 then begin

j : = j + 1 ; arrC[j] : = arrA[i] ; sum : = sum + arrC[j] * arrC[j] ;

end ;

i : = i + 2 ;

end ;

writeln('Array C : ') ;

for i : = 1 to j do write(arrC[i] : 6 : 2) ;

writeln ;

writeln('sq.

Sum = ', sum : 5 : 2) ;

end.

Ademok 21 окт. 2018 г., 04:55:21 | 5 - 9 классы

Отрицательные и положительные качества Зевса?

Отрицательные и положительные качества Зевса.

Mahapopova10let 16 янв. 2018 г., 01:11:45 | 10 - 11 классы

ПОЖАЛУЙСТА ПОМОГИТЕ?

ПОЖАЛУЙСТА ПОМОГИТЕ!

Определить сумму элементов массива с k1 по k2 (значения k1 и k2 вводятся с клавиатуры k2> ; k1).

Отличник17 26 мар. 2018 г., 01:44:06 | 1 - 4 классы

3. Множество А содержит 5 элементов, множество В – 4 элемента, а их пересечение содержит 2 элемента?

3. Множество А содержит 5 элементов, множество В – 4 элемента, а их пересечение содержит 2 элемента.

Сколько элементов содержит объединение множеств А и В?

MeLkAyA2015 9 дек. 2018 г., 12:05:41 | 5 - 9 классы

Жизнь в городе положительные и отрицательные стороны?

Жизнь в городе положительные и отрицательные стороны.

Риго 28 дек. 2018 г., 23:43:04 | 1 - 4 классы

Я и мои отрицательные и положительные стороны?

Я и мои отрицательные и положительные стороны.

Sasha874 29 июн. 2018 г., 09:16:03 | 5 - 9 классы

Pascal Дан массив А из n действительных чисел : a1, …, an?

Pascal Дан массив А из n действительных чисел : a1, …, an.

Вычислить : 2(a1 + … + an)2 Получить произведение элементов массива, кратных p.

Заменить нулями элементы, модуль которых при делении на p дает в остатке q.

Milena10331 22 нояб. 2018 г., 19:44:58 | 10 - 11 классы

Определить количество и вычислить сумму элементов одномерного массива N, кратных трем?

Определить количество и вычислить сумму элементов одномерного массива N, кратных трем.

Ni / 3 * 3 = ni.

Веня666 22 июн. 2018 г., 07:56:59 | 5 - 9 классы

Составить блок - схему и программу поиска наибольшего элемента массива?

Составить блок - схему и программу поиска наибольшего элемента массива.

Malinka0412 25 авг. 2018 г., 08:17:30 | 10 - 11 классы

Помогите сделать программу и блок - схему : Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N)?

Помогите сделать программу и блок - схему : Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N).

Программа на С + +.

89041593893k 25 сент. 2018 г., 17:50:19 | 10 - 11 классы

Задана прямоугольная матрица 5х3?

Задана прямоугольная матрица 5х3.

Найти номер строки, имеющей наименьшую сумму элементов.