19.03.2012, 21:11
|
#1 (permalink) |
|
Новичок
Регистрация: 19.03.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с написанием программы на Pascal
а задание такое: 1. Ввод массива целых чисел. 2. Вывод массива в строку. 3. Найти количество положительных элементов в массиве. Заменить все четные элементы массива на их индексы. |
|
|
|
19.03.2012, 21:11
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обратите внимание на данные топики Помогите написать программы на языке Pascal Помогите с написанием программы на С++ Помогите пожалуйста написать программы в Pascal |
|
19.03.2012, 23:01
|
#3 (permalink) |
|
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
1)
Пример фрагмента программы заполнения массива Паскаля случайными числами Var A: array [1..10] of integer; I : byte ; {переменная I вводится как индекс массива} Begin For i :=1 to 10 do A [ i ]:= random (10); { i -му элементу массива присваивается «случайное» целое число в диапазоне от 0 до 10} 2) Var A: array [1..10] of integer; I : byte ; {переменная I вводится как индекс массива} Begin For i :=1 to 10 do Write ( a [ i ],’ ‘); {вывод массива осуществляется в строку, после каждого элемента печатается пробел} 3) ищи в инете, там навалом этих программ, и тут на форуме. |
|
|
|
|
20.03.2012, 06:56
|
#4 (permalink) |
|
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Код:
var
a:array [1..10] of integer;
i,k:integer;
begin
randomize;
k:=0;
for i:=1 to 10 do begin
a[i]:=random(10)-4;
if a[i]>0 then inc(k);
write (a[i]:3);
end;
writeln;
for i:=1 to 10 do begin
if abs(a[i]) mod 2=0 then a[i]:=i;
write (a[i]:3);
end;
writeln;
write ('k=',k);
readln
end.
|
|
|
|
|
26.03.2012, 08:33
|
#5 (permalink) |
|
Новичок
Регистрация: 19.03.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
CGFCB<J JUHJVYJT DCTV!!!!
СПАСИБО ОГРОМНОЕ ВСЕМ!!!!! 
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
