Регистрация
AndyXD
13.07.2021 01:54
Информатика
Есть ответ 👍

Задан двухмерный массив. определить, сколько раз встречается число 1 среди элементов третьей строки матрицы.

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

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

elenabradulina
elenabradulina
4,4(37 оценок)
Program project1; uses crt,math; const n=3; var  s: real;     i,j,f: byte;   a: array [1..n, 1..n] of integer; begin    for i: =1 to n do  begin    for j: =1 to n do   begin    write('vvedite ',i,'.',j,' cifru '); readln(a[i,j]);     end;     end;   for i: =1 to n do  begin    for j: =1 to n do   begin    if (a[i,3]=1) then  inc(f);   end;     end;   writeln('1 vstrechaetsya: ',f: 2,' raz');   readln; end.    
nikols7
nikols7
4,6(48 оценок)

var a,c: integer;

   summ: integer;

begin

 summ:=0;

 println('Введите число a');

 readln(a);

 println('Введите число c');

 readln(c);

 while (a<=c) do begin

   if (a mod 2=0) then

     summ:=summ+a;

     a:=a+1;

 end;

 a:=a+1;

 println('Сумма четных чисел от ', a, ' до ', c, ' = ');

 print(summ);

end.

Популярно: Информатика