Дан массив. Вывести его элементы в обратном порядке и вывести сумму всех его элементов

@Egoriz · Регистрация: 04.05.2012

2-Дан массив размера N. Вывести его элементы в обратном порядке и вывести сумму всех его элементов.

@TheSN · 31.05.2012, 14:42

Pascal

  { Задача 2 }
const
  n = 5;
 
var
  a: array [1..n] of integer;
  i, s: integer;
 
begin
  randomize;
  writeln('Исходный массив:');
  for i := 1 to n do 
  begin
    a[i] := random(50) - 25; write(a[i]:5)
  end;
  writeln;
  writeln('Перевернутый массив:');
  for i := n downto 1 do 
  begin
    s := s + a[i]; write(a[i]:5)
  end;
  writeln;
  writeln('Сумма элементов = ', s);
  readln
end.

@Egoriz 0 / 0 / 0 Регистрация: 04.05.2012 Сообщений: 6
		1
	Дан массив. Вывести его элементы в обратном порядке и вывести сумму всех его элементов 31.05.2012, 14:30. Просмотров 2672. Ответов 1 Метки нет (Все метки) 2-Дан массив размера N. Вывести его элементы в обратном порядке и вывести сумму всех его элементов. 0

Опции темы

Дан массив. Вывести его элементы в обратном порядке и вывести сумму всех его элементов

Решение