Паскаль. Дан двумерный массив, необходимо найти количество элементов, кратных 5.
Набросала, что смогла. Понимаю, что у знающих людей скорее всего кровь из глаз потечет, но если на деле не все так плохо, подскажите, где ошибки.
program a2;
var
n,m,a,b,i,j,s :integer;
mmas: array [1..50,1..50] of integer;
begin
i:=0;
j:=0;
writeln ('Размерность массива (числа от 1 до 49): ');
read (m,n);
for a:= 1 to n do
for b:= 1 to m do
mmas[a,b]:= random (49);
for i:= 1 to 49 do
for j:= 1 to 49 do
if (a[i] mod 5=0) then i:=1+i;
repeat i:=1+i until a=49;
if (b[i] mod 5=0) then j:=1+j;
repeat j:=1+j until b=49;
s:=i+j;
writeln (s);
end.

154

270

Посмотреть ответы 1

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

anna0513wolf

Информатика

4,6(100 оценок)

1var x,y: integer; begin writeln('введите х'); readln(x); writeln('введите y'); readln(y); if x< y then writeln('меньшее: ',x) else if x> y then writeln('меньшее: ',y) else if x=y then writeln('числа равны') end. 2 var x,y: integer; begin writeln('введите первое число'); readln(x); writeln('введите второе число'); readln(y); if y=0 then writeln('второе число равно 0. деление невозможно! ') else writeln(x,'/',y,'=',x/y); end. 3 var s,name: string; begin writeln('введите ваше имя'); readln(name); writeln('введите строку'); readln(s); if s=name then writeln('! ') else writeln('! '); end. 4 var x: integer; begin writeln('введите число'); readln(x); if (x mod 2)=0 then writeln('четное') else writeln('нечетное') end. 5 var x: string; i: integer; begin writeln('введите строку'); readln(x); writeln('введите номер символа'); readln(i); if i > length(x) then writeln('нет символа! ') else writeln(x[i]) end. 6 var x,y: integer; begin writeln('количество яблок: '); readln(x); writeln('количество апельсинов: '); readln(y); if (x*100)> (y*150) then writeln('берите яблоки') else if (x*100)< (y*150) then writeln('берите апельсины') else if (x*100)=(y*150) then writeln('вес яблок и апельсинов одинаковый') end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.