Регистрация
Frasmus
19.01.2021 21:54
Информатика
Есть ответ 👍

Реферат на тему антивирусные программы​

138
407
Посмотреть ответы 1

Ответы на вопрос:

Fhbhkdkd
Fhbhkdkd
4,8(67 оценок)

1. program mas_min_el_i_no;

const n=15;

var

a:array[1..n]of integer;

i,m,k:integer;

begin

for i:=1 to n do

begin

write(i,'》');

read(a[i]);

end;

m:=a[1];

k:=1;

for i:=1 to n do

if a[i]<m then

begin

m:=a[i];

k:=i;

end;

writeln;

write(m,' ',k)

end.

2. program mas_kolel_v_otr_s_nech_ind;

const

x:array[1..10]of real=(-17.3, 13.2, -7, -2.36, 123.4,-0.3, 12.356, 142,0, -1);

var

i,k:byte;

begin

k:=0;

for i:=1 to 10 do

if (x[i]>=5.1)and(x[i]<=32.4)and(i mod 2<>0) then

inc(k);

write(k)

end

Объяснение:

Популярно: Информатика