Показать сообщение отдельно
Старый 21.05.2010, 05:53   #40 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,527
Записей в дневнике: 64
Сказал(а) спасибо: 148
Поблагодарили 184 раз(а) в 79 сообщениях
Репутация: 71564
По умолчанию

Даны целые числа а1,…,а50. Получить последовательность b1,…,b50, которая отличается от исходной тем, что все члены удвоены.
Код:
program mas1;
uses crt;
var a: array[1..50] of integer;
     b: array[1..50] of integer;
     i,p:integer;
begin
randomize;
writeln('Выберите способ заполнения массива (1-авто, 2-вручную)');
repeat
read(p);
until (p=1) or (p=2);
for i:=1 to 50 do begin
if p=1 then a[i]:=random(40) else read(a[i]);
b[i]:=2*a[i];
end;
writeln;
writeln('a[i]      b[i]');
for i:=1 to 50 do begin
writeln(a[i]:5, b[i]:5);
end;
readln;
end.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070