// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqRandom(ReadInteger('n='),1,99).Println
end.
<u><em>Тестовое решение:</em></u>
n= 30
8 39 37 3 4 57 33 31 44 12 32 80 14 19 73 64 81 82 36 6 48 12 84 81 6 66 36 51 40 69
32*1=32. 32 бит в этих словах.
//Pascal ABC.NET v3.1 сборка 1172
var
ma: array of array of integer;
n, m, i, j, max, maxi, maxj: integer;
f: text;
s, st: string;
begin
randomize;
readln(n);
readln(m);
max := -1;
setlength(ma, n);
for i := 0 to n - 1 do
setlength(ma[i], m);
writeln('Matrix:');
for i := 0 to n - 1 do
begin
writeln;
for j := 0 to m - 1 do
begin
ma[i, j] := random(101);
write(ma[i, j]:4);
if max < ma[i, j] then
begin
max := ma[i, j];
maxi := i;
maxj := j;
end;
end;
end;
assign(f, 'text.txt');
rewrite(f);
for i := 0 to m - 1 do
write(f, ma[maxi, i]:4);
writeln(f, ' ');
for i := 0 to n - 1 do
write(f, ma[i, maxj]:4);
close(f);
writeln;
writeln('File:');
assign(f, 'text.txt');
reset(f);
while not Eof(f) do
begin;
readln(f, st);
s := s + st + chr(10) + chr(13);
end;
close(f);
write(s);
end.
Пример ввода:
3
4
Пример вывода:
Matrix:
30 29 3 61
64 4 99 36
45 9 85 19
File:
64 4 99 36
3 99 85
Var x:integer;y:real;beginwrite ('x= ');readln (x);y:=(2*x-4)/2;write('y= ', y:6:2);end.
Могу примерный план , может , что то пригодится.
<span>1. Женя купила семь баранок. 2. Собака съела все баранки. 3. Старушка дала Жене цветик-семицветик. 4. Женя загадала желание и оказалась дома. 5. Она оторвала второй лепесток. 6. Вазочка стала целой. 7. Женя пошла во двор. 8. Она загадала желание и очутилась на Северном полюсе. 9. Женя оторвала четвертый лепесток и вернулась во двор. 10. Она загадала, чтобы появилось много игрушек. 11. Куклы, машинки, мячики заполнили все улицы. 12. Женя оторвала шестой лепесток. 13. Игрушки пропали. 14. Женя увидела больного мальчика на скамейке. 15. Женя загадала желание. 16. Мальчик выздоровел.</span>