Добавил:
dima_meh96
kostikboritski@gmail.com
Выполнение курсовых, РГР технических предметов Механического факультета. Так же чертежи по инженерной графике для МФ, УПП. Писать на почту. Дипломы по кафедре Вагоны
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:информатика (не сорт) / lab9
.pas var F : array[1..100]of integer;
N,W,s,k,i,z:integer;
begin
write('N=');
readln(N);
write('Ввод массива-> ');
for i:=1 to N do read(F[i]);
write('W=');
read(W);
k:=0;
z:=1;
s:=1;
for i:=1 to N do if F[i]=W then
begin
writeln('число W есть');
z:=0;
end;
if z=1 then
begin
for i:=1 to N do if F[i] < w then k:=k+1;
writeln('Количество чисел меньше W=' ,k);
end;
for i:=1 to N do
if F[i] > 0 then s:=s*F[i];
Writeln('Произведене положительных=', s)
end.
N,W,s,k,i,z:integer;
begin
write('N=');
readln(N);
write('Ввод массива-> ');
for i:=1 to N do read(F[i]);
write('W=');
read(W);
k:=0;
z:=1;
s:=1;
for i:=1 to N do if F[i]=W then
begin
writeln('число W есть');
z:=0;
end;
if z=1 then
begin
for i:=1 to N do if F[i] < w then k:=k+1;
writeln('Количество чисел меньше W=' ,k);
end;
for i:=1 to N do
if F[i] > 0 then s:=s*F[i];
Writeln('Произведене положительных=', s)
end.
Соседние файлы в папке информатика (не сорт)