Ядолжна написать 6 лабораторных написать программу на паскале. дана матрица. вычислить среднее арифметическое четных элементов главной диагонали.

215

454

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

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

apkvava

Информатика

4,4(71 оценок)

// pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin var n: =readinteger('n='); var a: =matrixrandom(n,n,10,99); var s: =0; var k: =0; for var i: =0 to n-1 do begin for var j: =0 to n-1 do print(a[i,j]); writeln; if a[i,i].iseven then begin s+=a[i,i]; inc(k) end; end; if k> 0 then writeln('s=',s/k: 0: 2) else writeln('на главной диагонали нет четных элементов') end. тестовое решение n= 8 63 13 33 90 25 21 87 91 88 88 48 13 30 59 81 27 73 23 76 77 52 19 33 97 53 87 13 74 17 35 61 70 77 96 51 61 82 33 63 22 39 88 84 54 88 73 74 69 76 26 69 14 45 80 70 54 80 36 47 38 18 22 84 62 s=75.33

hikkaxxx

Информатика

4,6(62 оценок)

Что случится. ты соответственно не сможешь пользоваться для чего он и предназначен. но как правильно это возникает в случае нескольких причин. первая самая распространённая, bios не обнаружила жёсткий диск. вторая это возможно вы повредили каким-то образом жёсткий диск. ну и я думаю еще какие-то сторонние программы, которые мешают загрузки винды. способы решения. ну мои версии это: тест жёсткого диска. переустановка оси.при включении компа через клавишу на компьютере выйти в список инструментов f8 и попробовать "последние работоспособные параметры". а так, переустановка windows, всегда рабочий вариант, если не хотите париться. у меня win8 и я делаю все через инструменты f8.