(Паскаль)Дан массив A(m), m≤16 . Найти сумму S элементов, удовлетворяющих условию Ai >12 , и
их количество K . Вывести на печать исходный массив и величины S и K . Нужно вставить файл с массивом(произвольным) с расширение dat
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 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.
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.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
