Три друга – спортсмена - Игорь, Витя и Сережа – учились в одном классе. Каждый из них увлекался двумя видами спорта из следующих шести: борьба, волейбол, баскетбол, теннис, плавание и велоспорт. Известно, что:
• все трое – Сережа, теннисист и пловец ходят из школы домой вместе,
• пловец и тот, кто занимается борьбой – соседи по дому,
• Игорь самый старший из троих, а теннисист старше велосипедиста,
• Наиболее интересные спортивные передачи по телевизору все трое – Игорь, велосипедист и волейболист – смотрят вместе.
Надо узнать, кто каким спортом увлекается.
214
297
Ответы на вопрос:
{12. дан массив а(3*4). найти сумму первых отрицательных элементов в каждом столбце.}uses crt; const n=3; m=4; var a: array [1..n,1..m] of real; x,y: integer; min,sum: real; begin sum: =0; for x: =1 to n do begin for y: =1 to m do begin a[x,y]: =random(10)-5; write(a[x,y]: 3: 0); end; writeln; end; writeln; for y: =1 to m do begin min: =0; for x: =n downto 1 do if a[x,y]< 0 then min: =a[x,y]; sum: =sum+min; end; writeln; writeln('сумма первых отрицательных элементов в каждом столбце: ',sum); end.{ 13. даны два массива а(3*3) и в(3*3). вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.}uses crt; const n=3; var a,b: array [1..n,1..n] of integer; x,y,sum1,sum2: integer; begin sum1: =0; sum2: =0; for x: =1 to n do begin for y: =1 to n do begin a[x,y]: =random(10); if x=y then sum1: =sum1+a[x,y]; write(a[x,y]: 3); end; writeln; end; writeln; for x: =1 to n do begin for y: =1 to n do begin b[x,y]: =random(10); if x=y then sum2: =sum2+b[x,y]; write(b[x,y]: 3); end; writeln; end; if sum1< > sum2 then begin writeln('сумма элементов главной диагонали меньше в массиве: '); for x: =1 to n do begin for y: =1 to n do if sum1> sum2 then write(b[x,y]: 3) else write(a[x,y]: 3); writeln; end; end; if sum1=sum2 then writeln('сумма элементов главной диагонали одинакова'); end.{ 17.дан массив а(3*4). заменить все отрицательные элементы на противоположные.} uses crt; const n=3; m=4; var a: array [1..n,1..m] of real; x,y: integer; begin for x: =1 to n do begin for y: =1 to n do begin a[x,y]: =random(10)-5; write(a[x,y]: 3: 0); if a[x,y]< 0 then a[x,y]: =-a[x,y]; end; writeln; end; writeln; for x: =1 to n do begin for y: =1 to n do write(a[x,y]: 3: 0); writeln; end; end.
Популярно: Информатика
-
superogurec00224.04.2020 22:50
-
fefmweoiwefio15.06.2022 05:34
-
Zalina4272Bdjdkxc25.02.2020 11:29
-
lara190623.09.2021 11:22
-
nikdaniil0403.06.2023 03:14
-
роги105.05.2020 22:48
-
ВладыкаМор05.02.2022 16:47
-
roma26090216.03.2022 04:32
-
Dhe3201.08.2022 19:50
-
ellLMo28.04.2021 11:28