построить блок схемы и математическую модель. 1)Массив А (5) задан формулой: х = 4у + 9 Составить блок- - id1176417020210507 от akikjiro 07.05.2021 19:12

Question

Информатика: построить блок схемы и математическую модель. 1)Массив А (5) задан формулой: х = 4у + 9 Составить блок- схему для нахождения суммы положительных элементов одномерного массива 2)Массив А (4) задан формулой: р = 3к - 8 Составить блок- схему для нахождения произведения положительных элементов одномерного массива 3)Массив А (6) задан формулой: с = 2х + 1 Составить блок- схему для нахождения произведения положительных элементов одномерного массива 4)Массив @ (5) задан таблицей: R 1 2 3 4 5 @ ( R) 49

akikjiro · Accepted Answer

const nx = 20;
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer;
i, j, k,n,r,t: integer;
begin
Writeln('Введите размер матрицы n');Read(n);
for i := 1 to n do begin
for j := 1 to n do begin
Read(k);x[i, j] := k; end;end;
Writeln('Исходный массив');
for i := 1 to n do begin
for j := 1 to n do begin
Write(x[i, j]:4);
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;
end;
Writeln; end;
Writeln;Writeln('Одномерный массив');
for j := 1 to t do
Write(z[j]:4);
end.

MOGZ ответил