26.04.2013, 14:24
|
#1 (permalink) |
|
Banned
Регистрация: 26.04.2013
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Дан одномерный целочисленный массив из N элементов
|
|
|
|
26.04.2013, 14:24
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Можете набраться информации прочитав аналогичные темы Одномерный массив Одномерный массив Одномерный массив Дана квадратная матрица А из N элементов. Получить из нее одномерный массив, язык C++ Одномерный и двумерный массив |
|
26.04.2013, 14:36
|
#2 (permalink) | |
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
|
|
|
|
|
|
26.04.2013, 17:32
|
#5 (permalink) |
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Вот:
Код:
Const
Nmax=100;
Var
n,k,S,i,j:Integer;
a:Array[1..Nmax] of Integer;
Begin
Write('n (<100)= ');
Readln(n);
Randomize;
For i:=1 to n do
begin
a[i]:=-50+Random(100);
write(a[i]:4);
end;
Writeln;
Write('k (<',n,')= ');
Readln(k);
S:=0;
j:=0;
i:=0;
Repeat
Inc(i);
If (a[i] mod 2)<>0 then
begin
Inc(S,Abs(a[i]));
Inc(j);
end;
Until (j=k) or (i=n);
Writeln('Sum of first ',j,' absolute odds is ',S);
Readln
End.
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
