Нпзвание города;Соки,уха,туча,баки. Название реки:Упал,оса,каша,волна. Новое Слово:Марка,корж,булка,лапка,зубы,песок,галка,клин,
Сергей-Ка
1)Соки-Сочи
уха-уфа
туча-тула
баки-баку
2)урал, ока, волга,
маска,корт, будка, ласка, дубы, гайка, клён, доска, цвет,колено.
1,38 мб это 1413,12 кб
1413,12 может поместиться 4 учебника
Const n=5; //размер массива
var a:array[1..n] of integer; i,xmax:intger;
begin
for i:=1 to n do begin
a[i]:=random(10); //заполняем массив случайными числами от 1 до 10
write(a[i]); // выводим массив
end;
xmax:=a[1];
for i:=1 to n do begin
if a[i]>xmax then xmax:=a[i]
end;
for i:=1 to n do
a[i]:=xmax;
writeln('Конечный массив:');
for i:=1 to n do
write(a[i]);
end.
Пользовательский интерфейс - это средства взаимодействия человека и компьютера. Он обеспечивается операционной системой. Ещё пользовательский интерфейс на основе меню предлагает возможность выбора управляющей команды из меню (списка команд), разновидность интерфейсов представляющих одной стороной пользователя, а другой машину (аппарат).
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
fs=(string,string);
begin
var L:=new List<fs>;
repeat
var aw:=ReadlnString('>').ToWords;
if aw.Length=0 then break;
L.Add((aw[1],aw[0]))
until false;
var a:=L.OrderBy(t->t[0]);
var i:=1;
foreach var x in a do begin
Writeln(i:4,' ',x[1],' ',x[0]);
i+=1
end
end.
<u>Пример</u>
> J.X. Smith
> B.A. Weiter
> A.C. Johnes
>
1 A.C. Johnes
2 J.X. Smith
3 B.A. Weiter