Все категории

1 год назад

Написать поэтапно задачу нахождения среднего арифметического где указаны минимум 3 числа

Знания

Информатика

1 ответ:

Madokin1 год назад

0 0

Держи. Будут вопросы - обращайся

Читайте также

Дано трьохзначне число,визначити яка з його чисел більше перше чи останнє

МЛК

Uses crt;
var a:integer;
begin
readln(a);
if (a mod 10)>(a div 100) then writeln('3>1');
if (a mod 10)<(a div 100) then writeln('1>3');
end.

0 0

4 года назад

Составьте алгоритм для решения следующей задачи: Дан массив A(n). Отсортировать в порядке убывания значений.

mokv [50]

Сравнивай два соседних числа и переставляй если второе больше за первое так делай n раз

0 0

3 года назад

Используя закон аддитивности количества информации решите задачу о билете в кино со след. образом доп. условием: в кинотеатре 4

AnyaF

Блин ответ на языке крутится не могу это написать

0 0

4 года назад

Что больше 8 байт или 1 кбайт

inakii [19]

Помоему 1 кбайт.....,.....

0 0

4 года назад

Массивы на Паскале, пожалуйста.....

андрейаннушка

const

stroki = 10000;

stolbci = 10000;

type

matrix = array[1..stroki, 1..stolbci]of integer;

procedure vvod(var a: matrix; m, n: integer);

var

i, i1: integer;

begin

for i := 1 to m do

begin

write(' ');

for i1 := 1 to n do

read(a[i, i1]);

end;

var

a: matrix;

m, n, i, j, kol: integer;

begin

kol := 0;

readln(n, m);

vvod(a, n, m);

for i := 1 to n do

for j := 1 to m do if a[i, j] = 7 then kol += 1;

writeln(kol);

end.

var

a, b, c: array[0..14] of integer;

i, max, min, sum: integer;

begin

sum := 0;

min := 100;

max := 0;

for i := 0 to 14 do

begin

randomize;

a[i] := 10 + random(1 + 30 - 10);

b[i] := 10 + random(1 + 30 - 10);

c[i] := a[i] + b[i];

if c[i] > max then max := c[i]

else if c[i] < min then min := c[i];

sum += c[i];

end;

writeln(max);

writeln(min);

writeln(round(sum / 15));

end.

0 0

4 года назад