CLSDIM A(7, 7)FOR i = 1 TO 7 FOR j = 1 TO 7 A(i, j) = INT(RND * 100) NEXT jNEXT iminj = 1: minj2 = 1FOR i = 1 TO 7 IF A(1, minj) > A(1, i) THEN minj = i END IF IF A(3, minj2) > A(3, i) THEN minj2 = i END IFNEXT iSWAP A(1, minj), A(3, minj2)maxi1 = 1: maxj1 = 1: maxi2 = 1: maxj2 = 7j = 1: k = 7FOR i = 1 TO 7 IF A(maxi1, maxj1) > A(i, j) THEN maxi1 = i: maxj1 = j END IF IF A(maxi2, maxj2) > A(i, k) THEN maxi2 = i: maxj2 = k END IF k = k - 1 j = j + 1NEXT iFOR i = 1 TO 7 FOR j = 1 TO 7 PRINT A(i, j);
Воркута- генадий
иркутск-александр
саратов-михаил
тюмень-николай
уфа-семён
рязань-денис
задача оформляится табличным способом в таблице ставят + -
1)
var s,a,b: string; i,p: byte;
begin
s:='Снег лежит на земле';
writeln('Было:');
writeln(s);
a:='на земле';
b:='повсюду';
p:=Pos(a,s);
delete(s,p,length(a));
insert(b,s,p);
writeln('Стало:');
writeln(s);
end.
-----------------------------------
Было:
Снег лежит на земле.
Стало:
Снег лежит повсюду.
-----------------------------------
2)
var s: string;
begin
writeln('Введите слово:');
readln (s);
if length(s)>5 then writeln ('Верно') else writeln ('Не верно');
end.
------------------------------------
Введите слово:
ученик
Верно
------------------------------------
3)
var s: string; i,k: byte;
begin
writeln('Введите слово:');
readln (s);
k:=length(s);
for i:=1 to k do
s:=s+'+';
writeln (s)
end.
-------------------------------------
Введите слово:
море
море++++
-------------------------------------
Антивирус по и обновления....
1: var
s: string;
i:byte;
begin
read(s);
i:=1;
while (i>=length(s) div 2) and (si=s[length(s)-i+1]) do inc(i);
if si>=s[length(s)-i+1]
then writeln('да')
else writeln('нет');
readln;
end.
где si имеется ввиду s i-тое, тут не отображается видимо тож код какой-то.