Скора сессия, Помогите плиз с заданием
1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,10]. Найти сумму элементов, имеющих нечетное значение.
2. Вывести индексы тех элементов, значения которых больше заданного числа А.
3. Определить, есть ли в данном массиве положительные элементы, кратные заданному числу К.
Работа с одномерными массивами в Delphi
Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill
Каждое из заданий - на три строки. В чем сложность? Случайные значения получить? В цикле по массиву пройтись? Проверить на нечетность (x mod 2=1 или odd(x))? Сравнить одно число с другим? Проверить кратность (x mod k=0)?
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Да я в этом вообще не шарю, чтоб закрыть сессию я должен принести решенные задания.
Так и надо говорить - сделайте за меня, я ничего не знаю и знать не хочу.
[syntax=Delphi]
for i:=1 to n do begin
arr:=random(21)-10;
if (odd(arr)) then inc(sum_odd);
if (arr > A) then writeln('ARR[',i,'] > ',A);
if (arr>0 and arr mod k=0) then writeln (arr,' mod ', k,' = 0');
end;
[/syntax]
[syntax=Delphi]
for i:=1 to n do begin
arr:=random(21)-10;
if (odd(arr)) then inc(sum_odd);
if (arr > A) then writeln('ARR[',i,'] > ',A);
if (arr>0 and arr mod k=0) then writeln (arr,' mod ', k,' = 0');
end;
[/syntax]
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.