Program Ok;
var A:array[1..10] of real;
sum:real;i,n:integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
read(A[i]);
end;
for i:=10 downto 1 do
begin
if(A[i]>0) then
n:=i;
end;
for i:=1 to 9 do
begin
if (A[n] = A[i+1]) then
sum:=sum+1;
end;
writeln(sum);
end.

0 0

4 года назад

Найдите лишнее слово носок, мозоль, георгин, помидор

Анна Просвирина

<span>А по какому принципу надо выделить лишнее слово? Возможны варианты.
!. Лишнее - мозоль, слово женского рода, остальные - мужского
2. Носок - произведен руками человека по утвержденной технологической карте. Остальные растут сами, даже вопреки желанию человека
3. Помидор - съедобный, остальное не съедобно.</span>

0 0

4 года назад

Прочитать ещё 2 ответа

1)Сколько единиц содержит двоичная запись числа 25?1.12.23.34.42)В системе с некоторым основанием число 17 записывается как 101.

zona-zona

1) Ответ:3
25/2 11001
12(1)
6(0)
3(0)
1(1)

2)Ответ 4
18/8 101
8(1)
1(0)

0 0

4 года назад