Pascal. Действительные числа. - Паскаль, Turbo Pascal, PascalABC.NET

badname47 · 14.02.2012, 05:14

Нужен полный текст программы:
Даны действительные числа a(1), a(2), ..., a(20). Все отрицательные числа заменить на ноль.

Stilet · 14.02.2012, 08:33

Такой подходит?

Код:

var a:array[1..20] of integer;i:integer;
begin
 for i:=1 to 20 do begin a[i]:=20-random(40); if a[i]<0 then a[i]:=0;end;
end.

14.02.2012, 05:14	#1
badname47 Пользователь Регистрация: 03.12.2011 Сообщений: 19	Pascal. Действительные числа. Нужен полный текст программы: Даны действительные числа a(1), a(2), ..., a(20). Все отрицательные числа заменить на ноль.

14.02.2012, 08:33	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Такой подходит? Код: `var a:array[1..20] of integer;i:integer; begin for i:=1 to 20 do begin a[i]:=20-random(40); if a[i]<0 then a[i]:=0;end; end.` I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Даны действительные числа a1,...,a20. Получить числа b1,...,b20, ...	Alfa.Shadow	Паскаль, Turbo Pascal, PascalABC.NET	2	21.12.2011 15:55
действительные числа s,t	erik2	Помощь студентам	1	16.11.2011 11:06
Даны действительные числа...	Мария Сафонова	Помощь студентам	9	29.03.2011 17:13
Даны действительные числа а1, а2, ..., аn.	Figushkin	Помощь студентам	0	30.05.2010 11:17
Действительные числа	Ximer	Помощь студентам	2	09.03.2009 14:52