Все отрицательные компоненты с четными номерами заменить их квадратами.

@denis_0312 · Регистрация: 15.04.2017

Author24 — интернет-сервис помощи студентам

Дан вещественный вектор Y(Y0,Y1..Y25). Все отрицательные компоненты с четными номерами заменить их квадратами.

Добавлено через 1 минуту
и блок-схемы

@ZX Spectrum-128 · 15.04.2017, 08:29

Pascal

1
2
3

for i:=1 to n do
 if (y[i]<0) and (not odd(i)) then
  y[i]:=sqr(y[i]);

magirus · 15.04.2017, 08:31

Не по теме:

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

Добавлено через 1 минуту
и блок-схемы

тетенька, дайте воды напиться, а то так кушать хочется, что аж переночевать негде.

@denis_0312 · 15.04.2017, 08:34 **[ТС]**

а можно полностью программу?

magirus · 15.04.2017, 08:43

Не по теме:

а можно за вас сдать контрольную или что там у вас? сдать экзамены, поступить в институт, защитить диплом ...

@denis_0312 · 15.04.2017, 08:58 **[ТС]**

.... помогите срочно, меня сейчас из шараги отчислят!!!!!!!

magirus · 15.04.2017, 08:59

Здравствуй юность в сапогах...

@denis_0312 · 15.04.2017, 09:01 **[ТС]**

Не знаешь в какие войска сейчас берут?

magirus · 15.04.2017, 09:07

по сути вопроса -
функцию вам написали. неужели настолько сложно написать заголовок и
end
end

@denis_0312 · 15.04.2017, 09:08 **[ТС]**

ДА, Я ТУПОЙ Я НИЧЕГО НЕ ПОНИМАЮ ПОМОГИТЕЕЕЕЕ!!!!!!!!!!!!!!!

@ZX Spectrum-128 · 15.04.2017, 10:44

Pascal

const
  n = 10;
 
var
  y: array [1..n] of real;
  i: integer;
 
begin
  randomize;
  writeln('Исходный массив:');
  for i := 1 to n do
  begin
    y[i] := -n div 2 + random * n;
    write(y[i]:8:2);
  end;
  writeln;
  for i := 1 to n do
    if (y[i] < 0) and (not odd(i)) then
      y[i] := sqr(y[i]);
  writeln('Полученный массив:');
  for i := 1 to n do
    write(y[i]:8:2);
end.

Добавлено через 44 секунды

Не по теме:

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

ДА, Я ТУПОЙ Я НИЧЕГО НЕ ПОНИМАЮ ПОМОГИТЕЕЕЕЕ!!!!!!!!!!!!!!!

Да нормально всё, не переживайте. Сержант всему научит. ;)

@denis_0312 0 / 0 / 0 Регистрация: 15.04.2017 Сообщений: 8
		1
	Все отрицательные компоненты с четными номерами заменить их квадратами. 15.04.2017, 08:08. Показов 2022. Ответов 10 Метки нет (Все метки) Дан вещественный вектор Y(Y0,Y1..Y25). Все отрицательные компоненты с четными номерами заменить их квадратами. Добавлено через 1 минуту и блок-схемы 0

magirus
	15.04.2017, 08:31 #3
	Не по теме: Сообщение от denis_0312 Добавлено через 1 минуту и блок-схемы тетенька, дайте воды напиться, а то так кушать хочется, что аж переночевать негде. 0

@denis_0312 0 / 0 / 0 Регистрация: 15.04.2017 Сообщений: 8
	15.04.2017, 08:34 [ТС]	4
	а можно полностью программу? 0

magirus
	15.04.2017, 08:43 #5
	Не по теме: а можно за вас сдать контрольную или что там у вас? сдать экзамены, поступить в институт, защитить диплом ... 0

@denis_0312 0 / 0 / 0 Регистрация: 15.04.2017 Сообщений: 8
	15.04.2017, 08:58 [ТС]	6
	.... помогите срочно, меня сейчас из шараги отчислят!!!!!!! 0

magirus Почетный модератор 28045 / 15778 / 982 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	15.04.2017, 08:59	7
	Здравствуй юность в сапогах... 0

@denis_0312 0 / 0 / 0 Регистрация: 15.04.2017 Сообщений: 8
	15.04.2017, 09:01 [ТС]	8
	Не знаешь в какие войска сейчас берут? 0

magirus Почетный модератор 28045 / 15778 / 982 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	15.04.2017, 09:07	9
	Сообщение было отмечено denis_0312 как решение Решение по сути вопроса - функцию вам написали. неужели настолько сложно написать заголовок и end end 1

@denis_0312 0 / 0 / 0 Регистрация: 15.04.2017 Сообщений: 8
	15.04.2017, 09:08 [ТС]	10
	ДА, Я ТУПОЙ Я НИЧЕГО НЕ ПОНИМАЮ ПОМОГИТЕЕЕЕЕ!!!!!!!!!!!!!!! 0

	15.04.2017, 10:44

Все отрицательные компоненты с четными номерами заменить их квадратами.

Решение