karinavagi

14.06.2021 22:01

Информатика

Есть ответ 👍

Найти и исправить ошибки, в ответ - записать вводимые значения и результат

Пример 1:

program a1;
var k,m,day: intiger;
Dat: array [1.....7] of intiger;
begin
Dat [1]:=7;
Dat [2]:=9;
Dat [3]:=10;
Dat [4]:=8;
Dat [5]:=6;
Dat [6]:=7;
Dat [7]:=10;
Day:= 1
m:=Dat [1];
for k:=2 to 7 do
if Dat[k] > m then
begin
m:= Dat[k];
day:=k
end;
write (day)
end.

Пример 2:

program a1;
var k,m,count; integer;
Dat: array [1...7] of integer;
begin.
Dat [1]:=3;
Dat [2]:=-1;
Dat [3]:=2;
Dat [4]:=0;
Dat [5]:=0;
Dat [6]:=4;
Dat [7]:=-2;
count:= 0
for k:=1 to 7 do
if Dat[k] >=0 then
count:=count + 1
writi (count);
end.

Пример 3:

program a1;
var a,b,c,f,s: byte;
begin
readln (a);
b:= a div 100;
c:= a mod 100;
d:= c div 10;
f:= c mod 10;
s:= b+d+f;
if (s mod 2)=0 then
writln ('четное ) else writeln ('не четное');
end

142

186

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

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

апрркн1

Информатика

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

Ошибкa -> исправленное:

intiger -> integer

array[1......7] of intiger -> array[1..7] of integer;

Day:=1 -> day:= 1;

day:= k -> day:=k;

write(day) -> write(day);

выведет 3

var k,m,count; -> var k,m,count:

array[1...7] -> array[1..7]

begin. -> begin

count:= 0 -> count:= 0;

count:= count + 1 -> count:= count + 1;

writi(count); ->write(count);

Выведет 5

var a,b,c,f,s -> var a, b, c, d, f, s

writln -> writeln

end -> end.

вводим 1234

результат "не четное"

pasagilazutdino

Информатика

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

const n = 100;

var a: array [1..n] of integer;

i, count, sum, p: integer;

arith: real;

mult: biginteger;

begin

randomize;

for i: = 1 to n do a[i]: = random(1, 1000);

sum: = 0;

for i: = 1 to n do begin

if a[i] mod 2 = 0 then begin

inc(count);

sum: = sum + a[i];

arith: = sum / count;

end;

if a[i] mod 2 = 0 then begin

p: = a[i] * a[i];

if mult = 0 then mult: = p else mult: = mult * p;

// произведение капец длинное

if a[i] mod 3 = 0 then a[i]: = i * i;

end

end;

writeln(arith);

writeln(mult);

end.

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

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

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

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

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

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

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

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

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

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