program ArrayCalc;
var
ar: array[1..4, 1..4] of integer;
function Neg (Row: Integer): Integer;
var
i: Integer;
begin
Result := 0;
for i := 1 to 4 do
if ar [Row, i] <= 0 then
inc (Result);
end;
var
i, j, imax, n, nmax: byte;
f: text;
begin
assign(f, 'mas.txt');
rewrite (f);
randomize;
for i := 1 to 4 do begin
for j := 1 to 4 do begin
ar[i, j] := random (200) - 100;
write (IntToStr (ar [i, j]) :4);
write (f, IntToStr (ar [i, j]) :4);
end;
writeln (f, '');
writeln;
end;
close (f);
imax := 1;
nmax := 0;
for i := 1 to 4 do begin
n := Neg (i);
if n > nmax then begin
nmax := n;
imax := i
end;
end;
WriteLn;
WriteLn ('Строка массива:');
for j := 1 to 4 do
Write (ar [imax, j] :4);
ReadLn;
end.
#include <iostream>
#include <string>
#include <windows.h> // для русских букв, можно удалить
using namespace std;
int main()
{
string s, ss = "";
int i, l, imin;
setlocale(LC_ALL, "Russian");
SetConsoleCP(1251); // для русских букв, можно удалить
SetConsoleOutputCP(1251); // для русских букв, можно удалить
cout << "Введите строку: ";
getline (cin, s);
while (s != "") {
l = s.length();
imin = 0;
for (i = 0; i < l; i++) {
if (s[i] < s[imin]) {
imin = i;
}
}
ss = ss + s[imin];
s.erase(imin, 1);
}
cout << "\nРезультат: " << ss << "\n";
}
Объяснение:
если русские буквы не нужны можно удалить операторы с соответствующими комментариями
В 19 веке в 80гг Эдисон проводил исследования по поводу передачи информации на расстояния без проводов. Но ему не удалось решить эту проблему.
Радиосвязь была открыта АС Поповым в 1895 году. В 1896 годк не зависимо от Попова отркыл второй раз Г Маркони.