<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title>mytest</title>
</head>
<body>
<table border="2">
<tr>
<th>Страна </th>
<th>Столица </th>
<th>Официальный язык </th>
<th>Денежная единица </th>
</tr>
<tr>
<td>Италия </td>
<td>Рим </td>
<td>итальянский </td>
<td>евро </td>
</tr>
Тут должно быть так же как и во втором
Великобритания
Английский
Англия
Норвегия
Осло
норвежский
крона
</body>
</html>
Как мы уже выяснили, массивы объединяют однородные единицы информации – элементы одного и того же типа. Но многообразие информации нельзя свести только к какому-то одному типу данных. Например, указывая положение точки в пространстве, мы можем воспользоваться одним и тем же типом для указания ее координат, но, описывая человека, мы должны указать его имя, рост, цвет глаз и волос, то есть в одном описании объединим разнородную информацию. Точно так же, описывая автомобиль, мы укажем не только его марку, но и год выпуска, модификацию, да и цвет кузова может нас заинтересовать. Составляя автоматизированный каталог книгохранилища, мы для каждой книги должны указать ее название, имя автора, область знания, количество страниц, год издания, а также, возможно, признак нахождения на руках или в хранилище.
Данные такого рода, описывающие существенные стороны того или иного объекта путем включения в описание нескольких, часто разнотипных, элементов, называют записью (record). В языке Паскаль запись определяется путем указания служебного слова record и перечисления входящих в запись элементов с указанием типов этих элементов.
Объяснение:
begin
var a:=ReadlnInteger('a =');
var x:=ArrRandom(a,16,28); x.Println;
x:=x.Select(x->odd(x)?46:x).ToArray;
x.Println;
end.
2.
const a=10;
var x:array[1..a] of integer;
i:integer;
begin
Randomize;
for i:=1 to a do begin
x[i]:=random(13)+16;
write(x[i]:3);
end;
writeln;
for i:=1 to a do
if x[i] mod 2<>0 then x[i]:=46;
for i:=1 to a do write(x[i]:3);
writeln;
end.
Пример:
21 20 27 26 17 18 27 23 26 25
46 20 46 26 46 18 46 46 26 46