//PascalABC.Net 3.0, сборка 1064
const
nn=50;
var
a:array[1..nn] of integer;
i,n,imin:integer;
begin
Write('Введите количество элементов в массиве: '); Read(n);
Randomize;
Writeln('Исходный массив');
imin:=1;
for i:=1 to n do begin
a[i]:=Random(51)-25;
Write(a[i],' ');
if a[i]<a[imin] then imin:=i;
end;
Writeln;
for i:=imin to n-1 do a[i]:=a[i+1];
Writeln('Массив-результат');
for i:=1 to n-1 do Write(a[i],' '); Writeln
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов в массиве: 15
Исходный массив
17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 -20 23 2
Массив-результат
17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 23 2
<em><u>А это версия для тех, кто думает, что Паскалю пора давно "на свалку":</u></em>
//PascalABC.Net 3.0, сборка 1064
begin
var n:=ReadInteger('Введите количество элементов в массиве');
var a:=SeqRandom(n,-25,25).ToArray();
Writeln('Исходный массив:',#13#10,a);
Writeln('Результат:',#13#10,a.Where(x->x<>a.Min));
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов в массиве 15
Исходный массив:
[-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-25,-5,-15]
Результат:
[-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-5,-15]
<em>Можно сравнить понятность кода и его размер как со "школьным" решением, так и с программой на Java, приведенной в предыдущем ответе.</em>
var
i, j, n, min_r, max_r, max_a, min_a:integer;
<span>a:array [</span>1..10000, 1..10000<span>] of </span>integer;
begin
randomize;
writeln('Введите размер матрицы
N x N:');
readln(n);
writeln('Введите минимальное
значение генерации эл. массива:');
readln(min_r);
writeln('Введите максимальное
значение генерации эл. массива');
readln(max_r);
writeln();
for i:=1 to <span>n do</span>
for j:=1 to <span>n do</span>
a[i, j]:=random(max_r, min_r);
writeln('Сгенерированная матрица:');
for i:=1 to <span>n do</span>
begin
for j:=1 to <span>n do</span>
write(a[i, j]:3, ' ');
writeln();
end;
writeln();
max_a:=a[1, 1];
for i:=1 to <span>n do</span>
for j:=1 to <span>n do</span>
if <span>(i<j) and (max_a<a[i, j]) then</span>
max_a:=a[i, j];
min_a:=a[n, 1];
for i:=1 to <span>n do</span>
for j:=1 to <span>n do</span>
if (i+j>n+1<span>) and (min_a>a[i, j]) then</span>
min_a:=a[i, j];
writeln('Максимальный элемент
среди элементов матрицы расположенных выше главной диагонали: ', max_a);
writeln('Минимальный элемент
среди элементов матрицы расположенных ниже побочной диагонали: ', min_a);
writeln('Сумма: ', max_a+min_a);
end<span>.</span>
Var
N:integer;
X,S:real;
Begin
S:=0;
Write('N = ');
Read(N);
Write('X = ');
Read(X);
For N:= 1 to N do
S:=S+power(X,N);
Write('S = ',S)
End.
Смотря какой язык программирования.
Кратность например на C# можно проверить вот так:
<span>if(number\%2==0)
{
Console.WriteLine("{0} - кратно 2.",number)<span>;</span></span>
}
#include <iostream>
using namespace std;
pair<float, float> function_frac(float A, float B, float C, float D) {
return make_pair((A * D) / (B * C), (A * C) / (B * D));
}
int main()
{
setlocale(LC_ALL, "Russian");
float A;
cout << "Введите A:";
cin >> A;
float B;
cout << "Введите B:";
cin >> B;
float C;
cout << "Введите C:";
cin >> C;
float D;
cout << "Введите D:";
cin >> D;
pair<float, float> pair_F = function_frac(A, B, C, D);
cout << "Деление дроби на дробь равно: " << pair_F.first << endl << "Умножение дробей равно: " << pair_F.second;
}