сервис вопросов и ответовНайдите сумму квадратов неотрицательных элементов в заданном целочисленном одномерном массиве . сделайте пожалуйста в паскале
5-9 класс|
|
ууууууууукпчччче
05 мая 2013 г., 23:54:22 (10 лет назад)
Lenamorik
06 мая 2013 г., 2:32:53 (10 лет назад)
const
n = 20;
var
x: array[1..n] of integer;
i, s: integer;
begin
Randomize;
s := 0;
Write('Элементы массива: ');
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:5);
if x[i] >= 0 then s := s + sqr(x[i])
end;
Writeln(#13#10, 'Сумма квадратов неотрицательных элементов равна ', s)
end.
Тестовое решение:
Элементы массива: -29 1 -36 50 -29 31 4 28 -25 -1 17 -45 -48 -19 -49 -49 -30 -22 8 18
Сумма квадратов неотрицательных элементов равна 4939
ZayS398
06 мая 2013 г., 3:47:09 (10 лет назад)
var a:longint;
n, i:integer;
s:array [1..10000] of integer;
begin
read(n);
a:=0;
for i:=1 to n do
read (s[i]);
for i:=1 to n do
if s[i]>=0 then a:=a+sqr(s[i]);
writeln(a);
end.
Ответить
Другие вопросы из категории
Написать программу, которая решает уравнение ax+b = 0 (Паскаль)
использовать эти ур. в качестве решения: 2x+4=0; 2x+0=0; 0x+2=0; 0x+0=0
Вы хотите работать с разрешением монитора 1600х1200 пикселей, используя 16 777 216 цветов. В магазине продаются видеокарты с памятью 512Кбайт,
2Мбайт, 4Мбайт, 64Мбайт. Какую из них можно купить для вашей работы? Пожалуйста помогите!!
1)Какой смысл вы вкладываете в слово информация? 2)какие виды информации получает человек? 3)перечислите источники,через которые вы получаете
информацию? 4)как человек хранит информацию? 5)как передается информация от источника к приемнику? 6)приведите примеры обработки человеком информации 7)какие процессы называются информационными
Читайте также
1)Составить программу нахождения суммы квадратов чисел от 25 до 125.
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
НА QBASIC!!!!!!!!!! 1)Для массива А. Найти количество положительных, сумму нечетных и произведение чисел, кратных В. Результаты расчетаа и
массив вывести на экран.
2)Для массива А опредилить сумму квадратов отрицательных элементов, произведение положительных элементов, нулевые-заменить числом 12. Результаты расчета и массив вывести на экран.
3)Известны данные о количестве осадков, выпавших за каждый день января. Найти общее число осадков, выпавших по нечетным числам месяца.
4)Известна стоимость каждого из 15 видов товаров. Напечатать номера тех видов товаров, которые имеют стоимость всех видов товаров.
5)Дан массив А, отсортировать его по возрастанию. Отсортированный массив вывести на экран.
6)Дан массив А, Отсортировать его по убыванию. Отсортированный массив вывести на экран.
По записанному на алгоритмическом языке алгоритму подсчитать сумму квадратов последовательности натуральных чисел.
алг сумма квадратов (цел S)
рез S
нач нат n
S := 0
для n от 1 до 3
нц
S := S + n*n
кц
кон
Привет всем. в понедельник экзамен по информатике, а я ничего не могу решить. кто нибудь может помочь?
задачи:
1.Найдите сумму всех элементов одномерного числового массива.
2.найдите произведение всех элементов одномерного числового массива.
3.найдите количество отрицательных элементов одномерного числового массива.
4.найдите количество нечетных элементов одномерного числового массива.
5.найдите количество элементов одномерного числового массива <20.
6.найдите количество кратных 7 элементов одномерного числового массива.
7.найдите сумму элементов одномерного числового массива=8.
8.найдите сумму кратных 11 элементов одномерного числового массива.
9.найдите сумму чётных элементов одномерного числового массива.
10.найдите произведение кратных 3 элементов одномерного числового массива.
11.найдите произведение элементов одномерного числового массива >2 и <5.
12.вывести на экран элементов одномерного числового массива >15.
13.вывеси на экран элементов одномерного числового массива кратных 21.
14.вывести на экран четные элементов одномерного числового массива.
Вы находитесь на странице вопроса "Найдите сумму квадратов неотрицательных элементов в заданном целочисленном одномерном массиве . сделайте пожалуйста в паскале", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.