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

@knopochka19 · Регистрация: 19.11.2012

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

P.S. решали с подругой дня 3, выдает ошибку. Помогите плиз!

Kodzaev · 19.11.2012, 20:40

Pascal

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.

Kodzaev · 19.11.2012, 20:49

Блок-схема

@knopochka19 · 19.11.2012, 21:09 **[ТС]**

спасибо огромное при-огромное, можно к вам обращаться за помощью в дальнейшем?

личный вопрос вы с какого города?

Kodzaev · 19.11.2012, 21:17

Сообщение от knopochka19

личный вопрос вы с какого города?

Под моим ником написано

Добавлено через 2 минуты

Сообщение от knopochka19

можно к вам обращаться за помощью в дальнейшем?

Можно

@knopochka19 · 19.11.2012, 21:20 **[ТС]**

спасибо еще раз)

@knopochka19 0 / 0 / 0 Регистрация: 19.11.2012 Сообщений: 5
		1
	Дан массив А(20), в данном массиве все положительные элементы заменить их квадратами и подсчитать сумму элементов полученного массива. 19.11.2012, 20:33. Показов 2544. Ответов 5 Метки нет (Все метки) Дан массив А(20), в данном массиве все положительные элементы заменить их квадратами и подсчитать сумму элементов полученного массива. Составить программу решения задачи, нарисовать блок-схему. P.S. решали с подругой дня 3, выдает ошибку. Помогите плиз! 0

@knopochka19 0 / 0 / 0 Регистрация: 19.11.2012 Сообщений: 5
	19.11.2012, 21:09 [ТС]	4
	спасибо огромное при-огромное, можно к вам обращаться за помощью в дальнейшем? личный вопрос вы с какого города? 0

Kodzaev 3029 / 1915 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	19.11.2012, 21:17	5
	Сообщение от knopochka19 личный вопрос вы с какого города? Под моим ником написано Добавлено через 2 минуты Сообщение от knopochka19 можно к вам обращаться за помощью в дальнейшем? Можно 1

@knopochka19 0 / 0 / 0 Регистрация: 19.11.2012 Сообщений: 5
	19.11.2012, 21:20 [ТС]	6
	спасибо еще раз) 0

Опции темы