Вопрос по информатике:
(Паскаль)Дан массив A(m), m≤16 . Найти сумму S элементов,
удовлетворяющих условию Ai >12 , и их количество K . Вывести на
печать исходный массив и величины S и K .
Нужно вставить файл с массивом(произвольным) с расширение dat
- 08.07.2015 23:04
- Информатика
- remove_red_eye 15653
- thumb_up 43
Ответы и объяснения 1
Var a:array[1..10000] of longint;
ins:text;
i,s,k:integer;
begin
k:=0;
assign(ins,'insert.dat');
reset(ins);
writeln('Insert s');
for i :=1 to s do
read(ins,a[i]);
for i:= 1 to s do
if a[i]>12 then
k:=k+1;
for i:=1 to s do
write(a[i],' ');
writeln();
write('s=',s,' ','k=',k);
close(ins);
end.
- 09.07.2015 10:41
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.