Написать программу, в которой массив из 10 элементов заполняется случайными числами в пределах от 0 до 99, выводится на экран, и найти в нем: 1. количество нечетных чисел (если таких нет, то сообщить об этом) 2. минимальное число можно оформить в виде 2-х
1. Основным элементом рабочего листа в электронных таблицах является:
1) ячейка
2. Заголовки столбцов обозначаются:
2) буквами и числами
3) латинскими буквами
3. В строке формул отображается содержимое:
2) текущей ячейки
4. Выбрать из приведённых записей указание на абсолютную адресацию:
4) $N$1
5. Абсолютная адресация нужна для указания ссылки на:
1) конкретную ячейку
6. Дана электронная таблица: ABC113424253312Значение числа в ячейке В1 равно:
1) 1
7. В электронной таблице выделили группу ячеек А1:С2. Сколько ячеек входит в эту группу?
1) 6
8. Дана электронная таблица: ABCD1524 21016 В ячейку D1 ввели формулу, вычисляющую выражение по значениям других ячеек: =СУММ(А2:В 1). В результате в ячейке D1 появится значение:
1.
var a:array [1..10] of integer;
i,k:integer;
begin
k:=0;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:4);
if a[i] mod 2 = 1 then k:=k+1
end;
writeln;
if k>0 then writeln ('Количество нечетных чисел равно ',k)
else writeln ('Нечетных чисел нет')
end.
2.
var a:array [1..10] of integer;
i,m:integer;
begin
m:=99;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:4);
if a[i] < m then m:=a[i]
end;
writeln;
writeln ('min = ',m)
end.
Объяснение:
var a:array [1..10] of integer;
i,k,m:integer;
begin
k:=0;
m:=99;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:4);
if a[i] mod 2 = 1 then k:=k+1;
if a[i] < m then m:=a[i]
end;
writeln;
if k>0 then writeln ('Количество нечетных чисел равно ',k)
else writeln ('Нечетных чисел нет');
writeln ('min = ',m)
end.