Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 23.02.2018 02:34
- Информатика
- remove_red_eye 15430
- thumb_up 23
Ответы и объяснения 1
var Dat: array [1 .. 30] of integer;
2.
randomize;
for i := 1 to 30 do begin Dat[i] := random(64)+7;
3.
m = 8
4.
c = 3
5.
s = 99 ?
6.
var
A: array [1..10] of integer;
i, sum, count: integer;
begin
randomize;
sum := 0; count := 0;
for i := 1 to 10 do
begin
A[i] := random(1001);
write(A[i]:6);
if ((A[i] > 99) and (A[i] < 1000)) then
begin
sum := sum + A[i];
count := count + 1;
end;
end;
writeln;
if ((sum 0) and (count 0)) then
begin
writeln('Сумма трехзначных элементов = ', sum);
writeln('Количество трехзначных элементов = ', count);
end
else
writeln('Не найдено');
end.
- 24.02.2018 22:23
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.