PascalABC.NET 3.3 под девизом "Памяти наших дедов посвящается..."
const n=10; var a:array[1..n,1..n] of integer; i,j,SumDiag,k:integer; p:real;
begin Writeln('*** Исходная матрица ***'); Randomize; SumDiag:=0; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=Random(199)-99; if i=j then SumDiag:=SumDiag+a[i,j]; Write(a[i,j]:4) end; Writeln end; for i:=1 to 4*n do Write('-'); Writeln; Writeln('Сумма элементов на главной диагонали ',SumDiag); p:=SumDiag/15; k:=0; for i:=1 to n do for j:=1 to n do if a[i,j]<p then k:=k+1; Writeln('Искомое количество элементов ',k) end.
Народ последнюю задачку проверьте опять не могу найти ошибку УСЛОВИЕ: Дано натуральное четырехзначное число. Найти наименьшую нечетную цифру в числовой записи данного числа. Формат входных данных Входной файл содержит натуральное четырехзначное число. Формат выходных данных Выведите наименьшую нечетную цифру в числовой записи данного числа. Если нечетных цифр в числе нет, выведите в выходной файл -1.
РЕШЕНИЕ: PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 var n,a,b,c,d:integer; f,g:text; begin assign(f,'input.txt'); assign(g,'output.txt'); reset(f); rewrite(g); readln(f,n); a:=n div 1000; b:=n div 100 mod 10; c:=(n mod 100) div 10; d:=n mod 10; if (a mod 2=0) and (b mod 2=0) and (c mod 2=0) and (d mod 2=0) and (n<>0) then writeln(g,'-1') else if (a<=b) and (a<=c) and (a<=d) then writeln(g,a) else if (b<=a) and (b<=c) and (b<=d)then writeln(g,b) else if (c<=a) and (c<=b) and (c<=d) then writeln(g,c) else if (d<=a) and (d<=b) and (d<=c) then writeln(g,d) else close(f); close(g); end.
"Памяти наших дедов посвящается..."
const
n=10;
var
a:array[1..n,1..n] of integer;
i,j,SumDiag,k:integer;
p:real;
begin
Writeln('*** Исходная матрица ***');
Randomize;
SumDiag:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(199)-99;
if i=j then SumDiag:=SumDiag+a[i,j];
Write(a[i,j]:4)
end;
Writeln
end;
for i:=1 to 4*n do Write('-');
Writeln;
Writeln('Сумма элементов на главной диагонали ',SumDiag);
p:=SumDiag/15;
k:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<p then k:=k+1;
Writeln('Искомое количество элементов ',k)
end.
Пример
*** Исходная матрица ***
95 37 30 21 83 -99 48 -40 49 -19
-66 -82 88 -24 70 14 -88 11 60 14
-72 -80 90 25 68 23 91 66 -54 52
33 16 25 -72 85 58 -39 44 8 -29
8 78 -79 51 50 -61 -13 -87 87 66
63 -45 94 -48 59 76 46 -94 53 -40
-90 81 -85 96 47 18 -8 61 -10 -87
-47 -33 -97 -10 -93 -51 98 -60 74 30
-63 78 79 -21 89 -21 21 -26 -31 -91
-88 -45 91 -51 -39 26 64 -75 -96 -67
Сумма элементов на главной диагонали -9
Искомое количество элементов 46
УСЛОВИЕ:
Дано натуральное четырехзначное число. Найти наименьшую нечетную цифру в числовой записи данного числа.
Формат входных данных
Входной файл содержит натуральное четырехзначное число.
Формат выходных данных
Выведите наименьшую нечетную цифру в числовой записи данного числа. Если нечетных цифр в числе нет, выведите в выходной файл -1.
РЕШЕНИЕ:
PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 var n,a,b,c,d:integer; f,g:text; begin assign(f,'input.txt'); assign(g,'output.txt'); reset(f); rewrite(g); readln(f,n); a:=n div 1000; b:=n div 100 mod 10; c:=(n mod 100) div 10; d:=n mod 10; if (a mod 2=0) and (b mod 2=0) and (c mod 2=0) and (d mod 2=0) and (n<>0) then writeln(g,'-1') else if (a<=b) and (a<=c) and (a<=d) then writeln(g,a) else if (b<=a) and (b<=c) and (b<=d)then writeln(g,b) else if (c<=a) and (c<=b) and (c<=d) then writeln(g,c) else if (d<=a) and (d<=b) and (d<=c) then writeln(g,d) else close(f); close(g); end.