Дан одномерный массив . к четным элементам массива прибавить b , а из нечетных вычесть c . значения в и с вводятся с клавиатуры.

👇

Ответ:

Umnikin

31.05.2021

Может я не понял задания. Но вот...

var i,b,c,x: integer;

begin
write('Введите до какого числа будет идти масив: ');
readln(x);
write('Введите B и C ( через пробел ): ');
readln(b,c);
for i:=0 to x do
if (i mod 2 = 0)then writeln(i,'+',b,'=',i+b)
else writeln(i,'-',c,'=',i-c);
end.

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

Открыть все ответы

Ответ:

ntaskaeva2

31.05.2021

Type
mass = array[1..10, 1..10] of real;

var
a, b, c: mass;
n, m, i, j, n1, m1: integer;

procedure MatrA(var a: mass);
var
i, j: integer;
begin
for i := 1 to n do
    for j := 1 to m do
    begin
      writeln('a[', i, ',', j, ']: ');
      readln(a[i, j])
    end
end;

procedure MatrB(var b: mass);
var
i, j: integer;
begin
for i := 1 to n1 do
    for j := 1 to m1 do
    begin
      writeln('b[', i, ',', j, ']: ');
      readln(b[i, j])
    end
end;

procedure Sum(a, b: mass; var c: mass);
var
i, j: integer;
begin
for i := 1 to n do
    for j := 1 to m do
      c[i, j] := a[i, j] + b[i, j];
end;

begin
writeln('Введите n,m матрицы A');
readln(n, m);
MatrA(a);
writeln('Введите n,m матрицы B');
readln(n1, m1);
MatrB(b);
if (n1 <> n) and (m1 <> m) then
    writeln('Матрицы сложить нельзя')
else begin
    Sum(a, b, c);
    writeln('A+B');
    for i := 1 to n do
    begin
      for j := 1 to m do
        write(c[i, j]:1:3, ' ');
      writeln
    end
end;
readln;
end.

4,7(39 оценок)

Ответ:

ystefaniv

31.05.2021

Создавая циклы с условием для Робота , можно использовать 10 команд проверки условий:

– 8 команд вида [слева/справа/снизу/сверху] [стена/свободно]

– 2 команды вида клетка [закрашена/чистая]

На этом занятии будем выполнять задания, в которых не известно, сколько раз надо выполнять повторяющиеся действия

Пример 1. Составьте алгоритм, закрашивающий все внутренние клетки, прилегающие к стене. Длины стен неизвестны.

Особое внимание обратите на то, что программа должна давать верный результат при любых длинах стен. Проверять работо программы надо несколько раз, создавая различные варианты стартовых обстановок, например, при длине стены 1 клетка, при длине стены 8 клеток.

На рисунках представлены стартовая обстановка и результат.

Вариант решения:

использовать Робот

алг

нач

нц пока слева свободно

закрасить;влево

кц

нц пока снизу свободно

закрасить;вниз

кц

нц пока снизу стена