Нужно составить 2 блок схемы, на 2 программы.Нужно очень кто разбирается. 1)const n = 10; var a: array[1..n, 1..n] of real; d, i, j: integer; begin d := 0; writeln('Матрица А: '); for i := 1 to n do begin for j := 1 to n do begin a[i, j] := sin((i * pi) / 4) + cos((j * pi) / 4); write(a[i, j]:7:2); if (a[i, j] > 0) and (not odd(trunc(a[i, j]))) then d := d + 1; end; writeln; end; write('D: ', d); end. 2)const n=20; var x:array[1..n] of real; a, s:real; i, k:integer; begin writeln('Массив Х'); a:=0; for i:=1 to n do begin if i=10 then x[i]:=0 else if i<10 then x[i]:=-exp(ln(10-i)/3) else x[i]:=exp(ln(i-10)/3); write(x[i]:7:2); a:=a+x[i]; if i mod 10=0 then writeln; end; a:=a/n; writeln('Среднее арифметическое a=', a:0:2); s:=0; k:=0; for i:=1 to n do if x[i]>a then begin s:=s+x[i]; k:=k+1; end; write('Сумма элементов больших ', a:0:2, '=', s:0:2, ' Количество=', k); end.
Ответы
A) 1 1 1 1 1 1 1 б) 1 2 3 4 5 6 7 в) -3 0 5 12 21 32 45 г) 3 4 -1 5 0 10 -12 д) 0 1 0 2 0 3 0 4
// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin writeln('*** исходный массив ***'); var a: =matrrandom(2,4,-10,30); a.println(4); writeln(4*a.colcount*'-'); writeln('п = ',a.elementsbyrow.where(t-> t.between(1,19)) .aggregate(1,(x,y)-> x*y)) end. пример *** исходный массив *** 24 16 22 12 2 5 1 8 п = 15360
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
В! определте является ли слово "перевертышем" (читается слева направо одинаково справа налево)
Автор: Tatianamir765654
Составьте программу , которая выводит на экран все числа от 20 до 70 , оканчивающиеся на цифру 4
Автор: АлександрАнатолий
