Написать программу, возводящую каждый элемент заданной матрицы в квадрат

@iskantino · Регистрация: 30.11.2013

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

Салют хакеры) У меня к вам просьба напишите программу, возводящую каждый элемент заданной матрицы в квадрат.
Спасибо за внимание!

@ildwine · 30.11.2013, 21:30

Pascal

const
  n = 6;
  m = 5;
var
  a : array[1..n, 1..m] of integer;
  j, i : integer;
begin
  randomize;  
  writeln('исходная матрица');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(10) -5;
      write(a[i,j]:4)      
    end;
    writeln
  end;
  writeln('после возведения в квадрат');
  for i := 1 to n do 
  begin
    for j := 1 to m do
    begin
      a[i,j] := sqr(a[i,j]);
      write(a[i,j]:4)      
    end;
    writeln
  end;  
  readln
end.

@iskantino · 04.12.2013, 19:47 **[ТС]**

Ты настоящий программист! Спасибо

@iskantino 0 / 0 / 0 Регистрация: 30.11.2013 Сообщений: 19
		1
	Написать программу, возводящую каждый элемент заданной матрицы в квадрат 30.11.2013, 20:53. Показов 1558. Ответов 2 Метки нет (Все метки) Салют хакеры) У меня к вам просьба напишите программу, возводящую каждый элемент заданной матрицы в квадрат. Спасибо за внимание! 0

@iskantino 0 / 0 / 0 Регистрация: 30.11.2013 Сообщений: 19
	04.12.2013, 19:47 [ТС]	3
	Ты настоящий программист! Спасибо 0

Написать программу, возводящую каждый элемент заданной матрицы в квадрат

Решение