Создайте массив случайным образом,содержащий оценки десяти учеников за выполнение трёх контрольных работ (по три оценки для каждого).выведите на экран средний каждого ученика. подсчитайте число учеников: выполнивших первую работу на "5" выполнивших хотя бы одну работу на "5" выполнивших все работы на "5" выполнивших вторую работу на "4" или "5" не получивших ни одной оценки "5" выполнивших первую работу на "3",вторую-на "4" и третью-на "5"

👇

Ответ:

zb2004

29.05.2021

Извиняюсь за громоздкость мб можно и короче, сможешь расписать присваивание к каждой переменной а ,б и с рандомное значение, как я указал не через запятую? Если нет, то я через часок другой вброшу короткое решение, а пока это.

program n_1;
type
m= array [1..5] of integer;
var
a,a1,a2,a3,a4,a5,a6,a7,a8,a9: integer;
b,b1,b2,b3,b4,b5,b6,b7,b8,b9: m;
c,c1,c2,c3,c4,c5,c6,c7,c8,c9: m;
d,d,d2,d3,d4,d5,d6,d7,d8,d8: m;
begin
randomize;
b,b1,b2,b3,b4,b5,b6,b7,b8,b9:= random;
c,c1,c2,c3,c4,c5,c6,c7,c8,c9:= random;
d,d,,d2,d3,d4,d5,d6,d7,d8,d8:= random;
a:= (b+c+d) div 3;
a1:= (b1+c1+d1) div 3;
a2:= (b2+c2+d2) div 3;
a3:= (b3+c3+d3) div 3;
a4:= (b4+c4+d4) div 3;
a4:= (b5+c5+d5) div 3;
a6:= (b6+c6+d6) div 3;
a7:= (b7+7c+d7) div 3;
a8:= (b8+c8+d8) div 3;
a9:= (b9+c9+d9) div 3;
writeln ('Ученик-', a);
writeln ('Ученик 1-', a1);
writeln ('Ученик 2-', a2);
writeln ('Ученик 3-', a3);
writeln ('Ученик 4-', a4);
writeln ('Ученик 5-', a5);
writeln ('Ученик 6-', a6);
writeln ('Ученик 7-', a7);
writeln ('Ученик 8-', a8);
writeln ('Ученик 9-', a9)
end.

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

Открыть все ответы

Ответ:

stas273

29.05.2021

1)program fagasg;
var x1,y1,r: real;
begin
Writeln('Введите х1');
readln(x1);
Writeln('Введите у1');
readln(y1);
r:=sqrt(x1*x1+y1*y1);
Writeln('Расстояние от х1 до у1=',r);
end.
2)Program fsgasghfd;
var c,s: real;
a,b: integer;
begin
Writeln('Введите первое целое число');
readln(a);
Writeln('Введите второе целое число');
readln(b);
Writeln('Введите дробное число');
readln(c);
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then
s:=a+b+c
else writeln('Знаки разные');
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then Writeln('Сумма чисел:',s);
end.
3)Program wrqrwqr;
var A: Array[1..100] of integer;
B: Array[1..100] of integer;
C: Array[1..100] of integer;
s,i,h,g: integer;
begin
h:=0;
g:=0;
Writeln('введите размерность массива');
readln(s);
Writeln('Вводится первый массив');
For i:=1 to s do
begin
Writeln('Введите элемент массива №',i);
readln(A[i]);
end;
Writeln('Вводится второй массив');
For i:=1 to s do
begin
Writeln('Введите элемент массива №',i);
readln(B[i]);
end;
For i:=1 to s do begin
If A[i]>B[i] then C[i]:=A[i]
else C[i]:=B[i];
If C[i] mod 2=1 then h:=h+1;
If C[i] mod 2=0 then g:=g+1;
end;
Writeln('Количество нечётных элементов в массиве:',h);
Writeln('Количество чётных элементов в массиве:',g);
end.

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

Ответ:

daschkavolf

29.05.2021

1.
var n,i:integer;
mass:array[1..10000] of integer;
begin
writeln('Введите кол-во чисел');
read(n);
for i:=1 to n do
begin
write('mass[',i,']=');
read(mass[i]);
end;
writeln('Элементы массива которые четные и двухначные');
for i:=1 to n do
if (mass[i] mod 2=0) and (mass[i] div 10>0) and (mass[i] div 10<10) then write(mass[i]:4);
end.
2.
var n,i:integer;
mass:array[1..10000] of integer;
begin
writeln('Введите кол-во чисел');
read(n);
for i:=1 to n do
begin
write('mass[',i,']=');
read(mass[i]);
end;
writeln('Элементы массива которые кратны 4 и трехзначные');
for i:=1 to n do
if (mass[i] mod 4=0) and (mass[i] div 100>0) and (mass[i] div 100<10) then write(mass[i]:4);
end.
3.
var i,a,m:integer;
begin
m:=3;
for i:=1 to 10 do
writeln(i,' * ',m,' = ',i*m);
end.

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

Это интересно:

Образование

06.01.2021

Клюква стоит 250 рублей за кг, а малина 200....

Образование

16.03.2023

Решить систему уравнений x2 + y2 + xy = 3...

Образование

05.08.2020

Решить систему уравнений x2 + xy +y2 = 13...

Образование