1.Дан массив натуральных чисел.Вывести ** экран все двухзначные числа. 2. В массиве...

Question

1.Дан массив натуральных чисел.Вывести на экран все двухзначные числа.
2. В массиве хранятся сведенья об оценках 25-ти учеников по английскому языку.Определить количество "5", "4", "3", "2".

Answer 1

Var  Y, a,b,c,d:real;
begin
a:=5;
b:=4;
c:=3;
d:=2;
Y:=('formula');
readln;
end.
Приблизительно как то так, формулу сами подставите что бы определить кол-во 25 человек.

Comments

Так по какой формуле

---

п и з д е ц ответы

---

один сказал одно второй по другому решил

---

Program programm1;
Uses crt;
Var k, a,b,c,z:integer;
begin
clrscr;
readln(a);
readln(b);
readln(c);
readln(z);
k:=(a+b+c+z);
writeln ('znachenie c:=' ,k);
readln;
end.

---

можно по разному написать, но это программа что в комментах работает 100%

Answer 2

1.
program one
var
i:integer;
mas : array[1..n] of integer;
begin
for i:=1 to n do
begin
if (mas[i] < 100) and (mas[i] > 9) then
writeln(mas[i]);
end;
end.