Дана вещественная матрица размерности mxn. найти сумму элементов матрицы расположенных в каждой строке с чётным номером. решите в qbasic

151

247

Посмотреть ответы 2

Ответы на вопрос:

По5643

Информатика

4,8(37 оценок)

Вроде это program lab1_2; const n= 5; m=5; var a: array[1..n,1..m] of real; s,i,j: integer; begin randomize; for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(10); write(a[i,j]: 4); end; writeln; end; s: =0; for i: =1 to n do begin for j: =1 to m do begin if (a[i,j] mod 2) = 0 then begin s: =s+a[i,j]; end; end; end; writeln('summa: ',s); readln; end.(если ошибся сори! )

ele133pan11tov

Информатика

4,5(30 оценок)

Uses graphabc; begin {горшок} setpencolor(clbrown); setbrushcolor(clbrown); line(52, 280, 110, 452); line(110, 452, 196, 452); line(196, 452, 243, 280); line(243, 280, 52, 280); {зальём горшок цветом} floodfill(120, 400, clbrown); {стебли} setpenwidth(5); setpencolor(clgreen); line(58, 129, 127, 277); line(142, 56, 142, 280); line(229, 123, 164, 278); {лепестки цветов} setpencolor(clpurple); line(44, 101, 29, 70); line(45, 98, 67, 68); line(55, 95, 55, 64); line(55, 95, 74, 73); line(71, 99, 83, 81); line(71, 110, 95, 109); line(73, 116, 92, 123); line(60, 122, 83, 135); line(50, 132, 48, 145); line(49, 132, 33, 143); line(41, 123, 19, 133); line(43, 115, 13, 124); line(44, 109, 14, 108); line(37, 103, 17, 94); line(136, 50, 131, 64); line(135, 46, 117, 67); line(125, 48, 98, 62); line(135, 38, 102, 37); line(130, 30, 103, 22); line(128, 22, 112, 7); line(146, 12, 155, -6); line(158, 14, 166, -7); line(159, 28, 175, 12); line(163, 40, 191, 47); line(158, 47, 172, 58); line(147, 49, 162, 68); line(134, 19, 129, 6); line(218, 91, 210, 78); line(216, 91, 198, 80); line(225, 83, 213, 60); line(243, 88, 240, 62); line(251, 89, 267, 74); line(255, 106, 278, 110); line(245, 116, 264, 132); line(238, 118, 248, 142); line(231, 125, 232, 141); line(219, 112, 197, 129); line(219, 112, 183, 108); {середины цветков} setpencolor(clyellow); setbrushcolor(clyellow); circle(53, 116, 16); circle(142, 37, 17); circle(231, 103, 20); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.