Вопрос по информатике:
PascalABC
1)Дан массив целых чисел, состоящий из 8 элементов. Заполнить его с клавиатуры. Найти сумму элементов, имеющий нечётный индекс.
2)Сформировать одномерные массив из N элементов, где элементы массива - целые случайные числа. Вывести индексы тех элементов, значение которых больше заданного числа A (A вводить с клавиатуры).
3)Определите, есть ли в данном массиве положительные элементы, кратные k (k вводить с клавиатуры).
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 08.10.2016 06:50
- Информатика
- remove_red_eye 754
- thumb_up 24
Ответы и объяснения 1
program zadagha_1;
var
a: array[1..8] of integer;
i,sum:integer;
begin
writeln('vvedite 8 chisel');
for i:=1 to 8 do read(a[i]);
sum:=0;
for i:=1 to 8 do begin
if i mod 2 0 then begin
sum:=sum+a[i];
writeln(a[i]);
end;
end;
writeln();
writeln('summa elementov c nechetnim N =', sum);
end.
program zadagha_2;
var
b: array[1..1000] of integer;
i,a,n:integer;
begin
writeln('vvedite chislo - kolichestvo elementov massiva');
readln(n);
for i:=1 to n do begin
b[i]:=random(1000);
write(b[i]:6);
end;
writeln();
writeln('vvedite chislo');
readln(a);
write ('elementi > dannogo chisla: ');
for i:=1 to n do begin
if b[i]>a then write (i:4);
end;
end.
program zadacha_3;
var
a: array[1..100] of integer;
i,n,k: integer;
begin
n:=random(100);
for i:=1 to n do begin
a[i]:=random(1000)-500;
write(a[i]:6);
end;
writeln();
writeln('vvedite chislo');
readln(k);
writeln('v massive chisly ',k, ' kratni: ');
for i:=1 to n do begin
if (a[i] mod k = 0) and (a[i]>0) then begin
write(a[i]:6);
end;
end;
end.
- 09.10.2016 08:39
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.