Pascalabc.net var a: array[1..10000] of integer; kz,maxp,n,i,j: integer; begin i: =0; maxp: =integer.minvalue; writeln ('готов к приему чисел'); repeat i: =i+1; readln (a[i]); until a[i]=0; n: =i-1; readln (kz); for i: =1 to n-1 do for j: =2 to n do if maxp< (a[i]*a[j]) then maxp: =(a[i]*a[j]); writeln ('получено ',n,' чисел'); writeln; writeln ('полученное контрольное значение: ',kz); writeln; writeln ('вычисленное контрольное значение: ',maxp); writeln; if kz=maxp then writeln ('контроль пройден') else writeln ('контроль не пройден'); end. результаты: 1) готов к приему чисел 1 2 3 4 5 0 20 получено 5 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 20 контроль пройден 2) готов к приему чисел 1 2 3 4 5 6 0 20 получено 6 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 30 контроль не пройден
Вот program qq; var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t:integer; begin cls; writeln ('Введите 10 пар чисел'); read (a,b); read (c,d); read (e,f); read (g,h); read (i,j); read (k,l); read (m,n); read (o,p); read (q,r); read (s,t); //Первая пара if a > b then writeln ('Первая пара больше число ' ,a) else writeln ('Первая пара больше число ' ,b); //Вторая пара if c > d then writeln ('Вторая пара больше число ', c) else writeln ('Вторая пара больше число ', d); //Третья пара if e > f then writeln ('Третья пара больше число ', e) else writeln ('Третья пара больше число ', f); //Четвертая пара if g > h then writeln ('Четвертая пара больше число ' , g) else writeln ('Четвертая пара больше число ' , h); //Пятая пара if i > j then writeln ('Пятая пара больше число ' , i) else writeln ('Пятая пара больше число ' ,g); //Шестая пара if k > l then writeln ('Шестая пара больше число ' ,k) else writeln ('Шестая пара больше число ' ,l); //Седьмая пара if m > n then writeln ('Седьмая пара больше число ' , m) else writeln ('Седьмая пара больше число ' ,n); //Восьмая пара if o > p then writeln ('Восьмая пара больше число ' ,o) else writeln ('Восьмая пара больше число ' ,p); //Девятая пара if q > r then writeln ('Девятая пара больше число ' ,q) else writeln ('Девятая пара больше число ' ,r); //десятая пара if s > t then writeln ('Десятая пара больше число ' ,s) else writeln ('Десятая пара больше число ' ,t); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
