Const
n=6; //размерность массива
Var
ar:array[1..n] of integer;
i,min,b:integer;
begin
min:=2147483647; //верхняя граница типа integer
b:=0; //проверка на наличие минимума - ложь
for i:=1 to n do
begin
readln(ar[i]);
if (i mod 2=0) and (ar[i]>0) and (ar[i]<min) then {если индекс чётный, элемент положительный и меньше минимума}
begin
min:=ar[i]; //заменяем минимум элементом
b:=1; //проверка на наличие минимума - правда
end;
end;
if b=0 then writeln('Нет') else writeln(min); {если проверка-ложь, то нет минимума, иначе выводим минимум}
end.
Животные
Кролик
Гусь
Одежда
Футболка
Шорты
Мебель
Стул
<em><u>Pascal:</u></em>
var a:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
end.
<u><em>C++:</em></u>
#include <iostream>
using namespace std;
int main()
{
int a[10];
for (int i = 0; i<10; i++)
{
cout <<"A[" <<i <<"] = ";
cin >>a[i];
}
return 0;
}
Информационный вес символа двоичного алфавита принят за единицу измерения количества информации и называется бит.
20 баллов - это какой объем байт? Непонятно