Сформулируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлен по следующему правилу: первый равен 1,второй квадрату предыдущего,третий random(10)
Var a: array[1..9] of integer; i: integer; begin for i:=1 to 9 do if i mod 3 = 0 then begin a[i-2] := 1; a[i-1] := sqr(a[i-2]); a[i] := random(10); end; //вывод массива for i:=1 to 9 do write(a[i], ' '); writeln 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
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.
a: array[1..9] of integer;
i: integer;
begin
for i:=1 to 9 do
if i mod 3 = 0 then
begin
a[i-2] := 1;
a[i-1] := sqr(a[i-2]);
a[i] := random(10);
end;
//вывод массива
for i:=1 to 9 do
write(a[i], ' ');
writeln
end.