Составить блок-схему

@Lumonn · Регистрация: 14.11.2019

Author24 — интернет-сервис помощи студентам

Pascal

const
  m = 10;
 
var
  a, i, j, k: integer;
  c: array[1..m, 1..m] of integer;
 
begin
  randomize;
  writeln('Исходный массив:');
    for i := 1 to m do
      begin
        for j := 1 to m do
          begin
            c[i, j] := 19 - random(29);
            write(c[i, j]:4)
          end;
        writeln
      end;
  write('a = ');
  readln(a);
  k := 0;
  writeln('Элементы, равные ', a, ':');
  for i := 1 to m do
    for j := 1 to m do
      if c[i, j] = a then
        begin
          write('[',i:2, ', ', j:2, ']  ');
          inc(k)
        end;
  if k > 0 then
    begin
      writeln;
      write('их количество: ', k)
    end
  else write('не найдены')
end.

@Puporev · 30.11.2019, 07:23

В редакторе FCEditor по коду с некоторыми уточнениями.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.11.2019, 07:23	2
	Сообщение было отмечено Lumonn как решение Решение В редакторе FCEditor по коду с некоторыми уточнениями. Миниатюры 1

Составить блок-схему

Решение