Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 979 ответов!

найдите сумму всех положительных элементов одномерного массива

10-11 класс

Elizabeth69 29 окт. 2013 г., 14:44:06 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Hollywoodundeadкруть
29 окт. 2013 г., 17:08:07 (10 лет назад)

var
a: array[1..20] of integer;
s,i: integer;
begin

s := 0;
for i := 1 to 20 do
begin
a[i] := random(40)-20;
if a[i] >0 then
s := s+a[i];
write(a[i]:4);
end;
writeln;
writeln(s);
end.

Ответить

Другие вопросы из категории

Известно, что в буклете 12 страниц, на каждой странице по 24 рядка, а в каждом рядку 32 символа. Вычислить информационный объем буклета, если известно,

что он кодировался однобайтовым способом (т.е для кодирования одного символа использовался 1 байт). Ответ записать в битах

решите задание пожалуйста)

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

на языке паскаль 1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел

среди 10 элементов вещественного массива

3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.

4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов

1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел среди 10 элементов вещественного

массива

3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.

4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов

Помогите написать программу в паскале. За ранее спасибо.

Задача на одномерный массив.

Задание 2.
Задан одномерный массив MAS2 [1..10].
Массив объявите как константу типа Integer размером [1..10] со следующими значениями: (-7, 89, 64, -43, 4, 6, 8, -12, 55, 99)
Замените все положительные элементы одномерного массива на их квадраты, а отрицательные удвойте.
Результат вывести на экран.
Вычислить сумму всех элементов нового массива и вывести на экран.

Исходный массив Новый массив
-7 -14
89 7921
64 4096
-43 -86
4 16
6 36
8 64
-12 -24
55 3025
99 9801
Сумма элементов нового массива 24835

дана программа нахождения суммы всех элементов массива. Изменить программу таким образом,чтобы:

a) массив состоял из 15 элементов вещественного типа;
b) значения элементов массива должны меняться в интервале от 0 до 5;
c) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма

Program massiv;
const n=10;
Var a: array [1..n] of integer;
s,i integer;
Begin
writeln (‘ исходный массив.‘);
For i:= 1 to n do
begin
a [ i] := random (10);
write (‘a[‘i'] =', a[i], '');
end;
s:=0;
For i:= 1 to n do
s:= s+a[i];
Writeln (‘ сумма всех элементов массива S=‘, s);
end.



Вы находитесь на странице вопроса "найдите сумму всех положительных элементов одномерного массива", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.