var a: array[1..m, 1..n] of integer; b: array[1..m] of integer; i, j, p, pmax, imax: integer; flag: boolean;
begin {1} Randomize; writeln('Исходный массив'); for i := 1 to m do begin for j := 1 to n do begin a[i, j] := Random(81) - 40; write(a[i, j]:4) end; writeln end; {2} writeln('Произведения построчно'); for i := 1 to m do begin p := 1; for j := 1 to n do p := p * a[i, j]; writeln(i, ': ', p:9) end; {3} pmax := -MaxInt; writeln('Максимальное построчное произведение'); for i := 1 to m do begin p := 1; for j := 1 to n do p := p * a[i, j]; if pmax < p then begin pmax := p; imax := i; end end; writeln(imax, ': ', pmax:9); {4} for i := 1 to m do b[i] := a[i, 1]; for i := 2 to m do begin p := b[i]; j := i - 1; flag := False; while (j > 0) and (not flag) do if p < b[j] then begin b[j + 1] := b[j]; j := j - 1 end else flag := True; b[j + 1] := p end; writeln('Отсортированный первый столбец'); for i := 1 to m do writeln(b[i]:3) end.
Const St: array[1..3] of string = ('Будапешт', 'Рим', 'Киев'); Nas: array[1..3] of real = (9.9, 61.5, 44.3); Kr: array[1..3] of string = ('Венгрия', 'Италия', 'Украина'); {Сведения о численности населения приведены по данным ресурса CountryMeters по состоянию на 03.07.2014}
var i: integer;
begin write('Введите 1-Венгрия, 2-Италия, 3-Украина -> '); readln(i); if i in [1..3] then writeln('Страна- ', Kr[i], ', столица- ', St[i], ', население (млн.чел.)- ', Nas[i]) else writeln('Неверный ввод!') end.
Тестовое решение:
Введите 1-Венгрия, 2-Италия, 3-Украина -> 2 Страна- Италия, столица- Рим, население (млн.чел.)- 61.5
import random
mass = [random.randint(0, 5) for i in range(10)]
print(mas)
numb = int(input(‘Введите число в диапазоне от 0 до 5: ‘))
print(‘Число ‘ + str(число_1) + ‘ встречается в массиве ‘ + str(mass.count(numb)) + ‘ раз(а)’)