02.12.2011, 19:28
|
#1 (permalink) |
|
Новичок
Регистрация: 02.12.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с програмированием
2. составьте блок-схему алгоритма и программу вычисления в массиве А(10) количества нечётных элементов. 3. составьте программу заполнения массива, не используя клавиатуру, числами: -2, 4, -6, 8, -10, 12, -14, 16, -18, 20. |
|
|
|
02.12.2011, 19:28
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Эти темы ждут, пока вы их прочитаете Помогите, пожалуйста, с програмированием на с++ |
|
02.12.2011, 19:32
|
#2 (permalink) |
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
К сожалению, наши телепаты разъехались, будут только летом, а без них, сами понимаете, узнать требуемый язык программирования мы не в состоянии. Так что ничем помочь не можем. Извините.
|
|
|
|
|
02.12.2011, 20:06
|
#4 (permalink) | ||||
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Цитата:
Код:
VAR
A:Array[1..12] of Integer;
i:Integer;
BEGIN
For i:=1 to 12 do
begin
Write('A[',i:2,']= ');
Readln(A[i]);
end;
Writeln;
For i:=1 to 12 do
Write(A[i]:4);
Readln;
END.
Цитата:
Код:
VAR
A:Array[1..10] of Integer;
i,N:Integer;
BEGIN
For i:=1 to 10 do
begin
Write('A[',i:2,']= ');
Readln(A[i]);
end;
Writeln;
N:=0;
For i:=1 to 10 do
If (A[i] mod 2)<>0 then N:=N+1;
Writeln(N,' odd elements');
Readln;
END.
Цитата:
Код:
VAR A:Array[1..10] of Integer; i,N:Integer; BEGIN A[1]:=-2; For i:=2 to 10 do If (i mod 2)=0 then A[i]:=-A[i-1]+2 else A[i]:=-A[i-1]-2; For i:=1 to 10 do Write(A[i]:4); Readln; END. |
||||
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
