Const n=3;
var a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin for j:=1 to n do
begin
a[i,j]:=random(50)+50;
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to n do
begin k:=a[1,j]; a[1,j]:=a[3,j]; a[3,j]:=k; end;
writeln('Измененный массив');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
71 82 65
87 98 79
50 74 84
Измененный массив
50 74 84
87 98 79
71 82 65
да могут норазные примеры например волны итд
Бит - наименьшая единица измерения информации
1байт = 8 бит
1Кбайт = 1024 байт
1 Мбайт = 1024 Кбайт
и т.д, Гигабайт, Терабайт, Йотабайт
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var names:array[1..2,1..5] of string:=
(('Саша','Женя','Таня','Лена','Вася'),
('Александр','Евгений','Татьяна','Елена','Василий'));
var name:=ReadlnString('Введите краткое имя:');
var p:=0;
for var i:=1 to 5 do
if name=names[1,i] then begin p:=i; break end;
if p>0 then Writeln(names[2,p])
else Writeln('Я вас не знаю!')
end.
<u><em>Тестовое решение</em></u>
Введите краткое имя: Лена
Елена
Блок-схемы - в прилагаемых файлах.
Программы:
1)
var i:integer; p:longint;
<span>begin
p:=1;
for i:=5 to 12 do p:=p*i;
writeln('p = ',p);
readln;end<span>.
var i:integer; p:longint;
begin
p:=1;
for i:=12 downto 5 do p:=p*i;
writeln('p = ',p);
readln;end.
Результат:
p = 19958400</span></span>