<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-50,50); a.Println;
var p:=a.IndexMin;
Writeln('Номер минимального элемента ',p+1,
', его значение ',a[p]);
p:=a.IndexMax;
Writeln('Номер максимального элемента ',p+1,
', его значение ',a[p]);
end.
<u>Пример</u>
40 4 40 46 45 -42 -27 30 40 -13
Номер минимального элемента 6, его значение -42
Номер максимального элемента 4, его значение 46
#include <iostream>
using namespace std;int main(){setlocale(LC_ALL, "Russian");int in_user;cout << "На каком вы курсе?" << endl;while(cin >> in_user){if(in_user > 0 && in_user < 12){cout << "Я учусь на "<< in_user << "-курсе";break;}else{cout << "С тобой все в порядке? Нет такого курса" << endl<< "На каком вы курсе?" << endl;}}return 0;}
1) var A, B: array[1..25] of integer;
i, x: integer;
begin
writeln('введите элементы массива A: ');
for i := 1 to 25 do begin
read(A[i]);
if A[i] mod 3 = 0 then
begin
x := x + 1;
B[x] := A[i];
end;
end;
write('элементы массива A, кратные трём: ');
for i := 1 to x do begin
write(B[i], ' ');
end;
end.
2) var A, B, C: array[1..10000] of integer;
i, n, x: integer;
begin
writeln('введите размеры обоих массивов: ');
read(n);
write('введите элементы массива A: ');
for i := 1 to n do begin
x := x + 1;
read(A[i]);
end;
write('введите элементы массива B: ');
for i := 1 to n do begin
read(B[i]);
end;
write('элементы массива C: ');
for i := 1 to x do begin
C[i] := A[i];
write(C[i], ' ');
C[i] := B[i];
write(C[i], ' ');
end;
end.
Реализация на паскале, на других языках смысл тот же
