mashagalushko2

16.08.2021 09:44

Информатика

Есть ответ 👍

Pascal.abc 1. в два массива с клавиатуры заполнить числа, отображающие количество забитых и пропущенных голов за каждый матч футбольной команды (всего n матчей). найти разницу забитых и пропущенных голов. найти сколько игр команда пропустила больше 1 мяча. 2. в массив с клавиатуры заполнить числа, отображающие температуру каждого дня (всего n дней). найти среднюю температуру за n дней. найти сколько дней температура была меньше 0.

103

376

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

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

ZloyFuzz

Информатика

4,4(17 оценок)

//#1

var

a, b: array of integer;

n: integer;

procedure parse(var a, b: array of integer; n: integer);

begin

var sum_p: integer : = 0;

var sum_m: integer : = 0;

var data: integer : = 0;

setlength(a, n); setlength(b, n);

var i: integer;

for i : = low(a) to high(a) do

begin

readln(a[i]); readln(b[i]);

sum_p += 3a[i]; //kov vo zabitix myachei

sum_m += b[i]; //kol vo promaxov

if b[i] > 1 then inc(data);

end;

writeln(sum_p - sum_m);

writeln(data);

end;

begin

readln(n);

parse(a, b, n);

end.

//#2

var

a: array of integer;

n: integer;

procedure parse(var a: array of integer; n: integer);

var

i: integer;

begin

var data: integer : = 0;

setlength(a, n);

var sum: integer : = 0;

for i : = low(a) to high(a) do begin read(a[i]); sum += a[i]; if a[i] < 0 then inc(data); end;

writeln(sum / (high(a) + 1): 0: 4);

write(data);

end;

begin

readln(n);

parse(a, n);

end.

анора10

Информатика

4,4(97 оценок)

Static void main (string [] args) { int daynumber = convert.toint(console.readline ; switch (daynumber) { case 1: console.writeline ("monday"); break; case 2: console.writeline ("tuesday"); break; case 3: console.writeline ("wednesday"); break; case 4: console.write: line ("thursday"); break; case 5: console.writeline ("friday"); break; case 6: console.writeline ("saturday"); break; case 7: console.writeline ("sunday"); break; default: console.writeline ("error"); break; } }