0 / 0 / 0
Регистрация: 19.11.2012
Сообщений: 5
1

Дан массив А(20), в данном массиве все положительные элементы заменить их квадратами и подсчитать сумму элементов полученного массива.

19.11.2012, 20:33. Показов 2544. Ответов 5
Метки нет (Все метки)

Дан массив А(20), в данном массиве все положительные элементы заменить их квадратами и подсчитать сумму элементов полученного массива. Составить программу решения задачи, нарисовать блок-схему.

P.S. решали с подругой дня 3, выдает ошибку. Помогите плиз!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2012, 20:33
Ответы с готовыми решениями:

В массиве B(11) все элементы из интервала (a, b) занесите в массив C и найдите сумму элементов полученного массива
1. В массиве B(11) все элементы из интервала (a, b) занесите в массив C и найдите сумму элементов...

Дан линейный массив. В массиве из 10 чисел есть отрицательные и положительные элементы. Вычислить сумму положительных элементов массива
Дан линейный массив. В массиве из 10 чисел есть отрицательные и положительные элементы. Вычислить...

Ввести массив .Если в массиве нет нулевых элементов, то заменить все положительные элементы массива на 0
Ввести массив A(n).Если в массиве нет нулевых элементов, то заменить все положительные элементы...

Все парные положительные элементы массива заменить их квадратами
Создать структуру «бинарное дерево» с элементами файлов с целых чисел. Количество элементов массива...

5
3029 / 1915 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
19.11.2012, 20:40 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Const
  n=20;
Var
  a:  Array[1..n] of Integer;
  i,s: Integer;
BEGIN
Writeln('Введите элементы массива:');
For i:=1 to n do
Readln(a[i]);
For i:=1 to n do
begin
  If a[i]>0 Then a[i]:=Sqr(a[i]);
  s:=s+a[i];
end;
Writeln('Полученный массив:');
For i:=1 to n do
Write(a[i],' ');
Writeln;
Writeln('Сумма элементов = ',s);
Readln
END.
1
3029 / 1915 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
19.11.2012, 20:49 3
Блок-схема
Вложения
Тип файла: doc Блок-схема.doc (32.5 Кб, 27 просмотров)
1
0 / 0 / 0
Регистрация: 19.11.2012
Сообщений: 5
19.11.2012, 21:09  [ТС] 4
спасибо огромное при-огромное, можно к вам обращаться за помощью в дальнейшем?
личный вопрос вы с какого города?
0
3029 / 1915 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
19.11.2012, 21:17 5
Цитата Сообщение от knopochka19 Посмотреть сообщение
личный вопрос вы с какого города?
Под моим ником написано

Добавлено через 2 минуты
Цитата Сообщение от knopochka19 Посмотреть сообщение
можно к вам обращаться за помощью в дальнейшем?
Можно
1
0 / 0 / 0
Регистрация: 19.11.2012
Сообщений: 5
19.11.2012, 21:20  [ТС] 6
спасибо еще раз)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2012, 21:20
Помогаю со студенческими работами здесь

В двумерном массиве заменить все отрицательные элементы их квадратами, а положительные оставить без изменения
31.Решить задачу в Turbo Pascal.В двумерном массиве заменить все отрицательные элементы их...

Все элементы главной диагонали заменить на сумму элементов в данном массиве, имеющих четное значение.
Дан двумерный массив целых чисел из 4 столбцов и 4 строк. Все элементы главной диагонали заменить...

Все элементы главной диагонали заменить на сумму элементов в данном массиве, имеющих четное значение
Дан двумерный массив целых чисел из 4 столбцов и 4 строк. Все элементы главной диагонали заменить...

Дан массив из 10 слов. Инвертировать все отрицательные числа и найти сумму элементов полученного массива
всем добрый вечер ,помогите пжл решить задачку в ассемблер вот условие : Дан массив из 10 слов....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru