Ввести все элементы массива одной строкой. Вывести каждый элемент массива с новой строки

@flames · Регистрация: 16.06.2013

Дан одномерный массив E, состоящий из 10 вещественных чисел. Ввести все элементы массива одной строкой. Вывести каждый элемент массива с новой строки.

@Reveng · 16.06.2013, 22:06

Pascal

uses crt;
 
const
  n = 10;
 
var
  e : array [1..n] of real;
  i :integer;
  
begin
  clrscr;
  writeln('Введите элементы массива: ');
  for i := 1 to n do
    readln(e[i]);
  clrscr;
  writeln('Строка элементов: ');
  for i := 1 to n do
    write(e[i]:0:3, ' ');
  writeln;
  writeln('Столбец элементов: ');
  for i := 1 to n do
    writeln(e[i]:0:3);
end.

@flames 1 / 1 / 0 Регистрация: 16.06.2013 Сообщений: 42
		1
	Ввести все элементы массива одной строкой. Вывести каждый элемент массива с новой строки 16.06.2013, 17:02. Просмотров 4593. Ответов 1 Метки нет (Все метки) Дан одномерный массив E, состоящий из 10 вещественных чисел. Ввести все элементы массива одной строкой. Вывести каждый элемент массива с новой строки. 0

Опции темы

Ввести все элементы массива одной строкой. Вывести каждый элемент массива с новой строки

Решение