Предмет: Информатика,
автор: EvgeshaP
дан массив целых чисел. найти количество тех элементов значение которых положительны и не превосходят число 7. написать программу для паскаля
Ответы
Автор ответа:
0
const n=10;
var a:array[1..n] of integer;
k,i;integer;
begin
writeln('vvedite massiv=');
for i;=1 to n do
readln(a[i]);
k:=0;
if (a[i]>0) and (a[i]<7) then inc(k);
writeln('k=',k);
readln;
end.
var a:array[1..n] of integer;
k,i;integer;
begin
writeln('vvedite massiv=');
for i;=1 to n do
readln(a[i]);
k:=0;
if (a[i]>0) and (a[i]<7) then inc(k);
writeln('k=',k);
readln;
end.
Автор ответа:
0
Торопышка=)))
Автор ответа:
0
const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
writeln('vvedite massiv=');
for i:=1 to n do
read(a[i]);
k:=0;
For i:=1 to n do
if (a[i]>0) and (a[i]<7) then inc(k);
writeln('k=',k);
readln;
end.
var a:array[1..n] of integer;
k,i:integer;
begin
writeln('vvedite massiv=');
for i:=1 to n do
read(a[i]);
k:=0;
For i:=1 to n do
if (a[i]>0) and (a[i]<7) then inc(k);
writeln('k=',k);
readln;
end.
Автор ответа:
0
забыла строчку For i:=1 to n do
Автор ответа:
0
:(
Похожие вопросы
Предмет: Математика,
автор: prizrak276
Предмет: Информатика,
автор: innnnnnastya
Предмет: Английский язык,
автор: dimagolosinuk
Предмет: Алгебра,
автор: Аноним
Предмет: Химия,
автор: vitsvits