Из массива А(М) получить массив В(М), каждый элемент которого равен квадрату соответствующего элемента исходного массива

@Zloty · Регистрация: 13.05.2013

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

Составить программу: Из массива А(М) получить массив В(М), каждый элемент которого равен квадрату соответствующего элемента массива А. Вывести на экран монитора полученный массив В и число К, равное количеству положительных элементов в исходном массиве.

Заранее спасибо.

@MihalNik · 13.05.2013, 18:27

Объявляем переменные, вводим данные+

Pascal

k:= 0;
for i:= 1 to N do begin
  B[i]:= A[i]*A[i];
  writeln('B[',i,'] = ',B[i]);
  if(A[i]>0) inc(k);
  end;
writeln('k = ',k);

@Zloty · 13.05.2013, 18:37 **[ТС]**

Если не сложно можно программу целеком?

@MihalNik · 13.05.2013, 18:47

Pascal

program Your;
var A,B:array[1..100] of Integer;
var i,k,N: Integer;
begin
write('Введите число элементов (до 100):');
readln(N);
for i:= 1 to N do begin
  write('Введите A[',i,']:');
  readln(A[i]);
  end;
k:= 0;
for i:= 1 to N do begin
  B[i]:= A[i]*A[i];
  writeln('B[',i,'] = ',B[i]);
  if(A[i]>0) inc(k);
  end;
write('k = ',k);
readln;
end.

@Zloty · 13.05.2013, 19:04 **[ТС]**

Спасибо огромное. Случайно не знаешь еще как математическую постановку написать?

@Zloty 0 / 0 / 0 Регистрация: 13.05.2013 Сообщений: 3
		1
	Из массива А(М) получить массив В(М), каждый элемент которого равен квадрату соответствующего элемента исходного массива 13.05.2013, 18:21. Показов 778. Ответов 4 Метки нет (Все метки) Составить программу: Из массива А(М) получить массив В(М), каждый элемент которого равен квадрату соответствующего элемента массива А. Вывести на экран монитора полученный массив В и число К, равное количеству положительных элементов в исходном массиве. Заранее спасибо. 0

@Zloty 0 / 0 / 0 Регистрация: 13.05.2013 Сообщений: 3
	13.05.2013, 18:37 [ТС]	3
	Если не сложно можно программу целеком? 0

@Zloty 0 / 0 / 0 Регистрация: 13.05.2013 Сообщений: 3
	13.05.2013, 19:04 [ТС]	5
	Спасибо огромное. Случайно не знаешь еще как математическую постановку написать? 0

Опции темы