Как сделать вывод массива в строчку через пробел?

@wei · Регистрация: 13.09.2011

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

как сделать что бы вывод массива был не так как в моей записи,а выводился массив a в строчку через пробел 10 чисел?

Pascal

program jin;
var i:integer;
s;sr:real;
a:array[1..10] of real;
begin
for
degin
write(vvod a[',i:2,']=');
readln(a[i]);
end;
for i;=1 to do
writeln (' a[',i:2,']=', a[i]:8:2);

запись дальше думаю не важна...

Спасибо.

@turbanoff · 26.10.2011, 09:19

Вместо writeln используйте write.
чтобы добавить пробел выводить write-ом еще и пробел.

@SuPeR XaKer · 26.10.2011, 13:50

a в строчку через пробел 10 чисел?

в смысле в каждой строке по 10 чисел?
тогда вот простой примерчик тебе:

Pascal

Uses CRT;
var i:byte;
begin
for i:=1 to 254 do
 if i mod 10=0 then
 begin
  write(i:4);
  readln;
 end
 else write(i:4);
end.

Лучше вот так:

Pascal

var i:byte;
begin
for i:=1 to 70 do
begin
 write(i:4);
 if i mod 10=0 then writeln;
end;
end.

@wei · 26.10.2011, 14:59 **[ТС]**

ясно,спасибо!

@Cer)I(iK · 26.10.2011, 19:40

SuPeR XaKer, странно, у него одномерный массив, и он походу просил элементы поставить в ряд.
если я, всё же, прав то:

Pascal

program jin;
var i:integer;
s;sr:real;
a:array[1..10] of real;
begin
for
degin
write(vvod a[',i:2,']=');
readln(a[i]);
end;
for i:=1 to do
gotoxy(i*2,5);
writeln (a[i]:8:2);

а в общее я бы сделал бы так:

Pascal

......
Begin
clrscr;
writeln('Вводим массив a[i]');
for i:=1 to 10 do begin
  gotoxy(i*2,5);
     readln(a[i]);
end;
.........

@turbanoff 4093 / 3827 / 745 Регистрация: 18.05.2010 Сообщений: 9,331 Записей в блоге: 11
	26.10.2011, 09:19	2
	Вместо writeln используйте write. чтобы добавить пробел выводить write-ом еще и пробел. 1

@wei 1 / 1 / 1 Регистрация: 13.09.2011 Сообщений: 40
	26.10.2011, 14:59 [ТС]	4
	ясно,спасибо! 0

	26.10.2011, 19:40