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.
===== C++ 17 =====
#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
int n = 3;
int a[3][3] = {{3,-7,12},{14,-5,0},{5,-12,-1}};
// исходный массив
for (int i = 0; i < n; i++)
{
for(int j = 0; j < n; j++)
cout << setw(4) << a[i][j];
cout << endl;
}
// поиск минимального элемента
int im = 0, min = a[0][0];
for (int i = 0; i < n; i++)
for (int j = 0; j < n; j++)
if (a[i][j] < min)
{
min = a[i][j];
im = i;
}
cout << "min = " << min << endl;
// обмен строк
int t;
for (int j = 0; j < n; j++)
{
t = a[0][j];
a[0][j] = a[im][j];
a[im][j] = t;
}
// полученный массив
for (int i = 0; i < n; i++)
{
for(int j = 0; j < n; j++)
cout << setw(4) << a[i][j];
cout << endl;
}
return 0;
}
xls
Microsoft также решила использовать буквы XL как сокращённое название программы: иконка Windows-программы состоит из стилизованного изображения этих двух букв, а расширение файлов по умолчанию в Excel — . xls.
Объяснение: