Const n = 20; var rez:array[2..5] of integer; i,a:integer; begin for i:=1 to n do begin write(i,' ученик получил '); readln(a); inc(rez[a]); end; writeln; for i:=2 to 5 do writeln('Оценку ',i,' получили ',rez[i]); end.
Тестовое решение: 1 ученик получил 3 2 ученик получил 4 3 ученик получил 3 4 ученик получил 5 5 ученик получил 2 6 ученик получил 2 7 ученик получил 3 8 ученик получил 4 9 ученик получил 5 10 ученик получил 4 11 ученик получил 2 12 ученик получил 3 13 ученик получил 3 14 ученик получил 4 15 ученик получил 5 16 ученик получил 5 17 ученик получил 3 18 ученик получил 5 19 ученик получил 4 20 ученик получил 4
Оценку 2 получили 3 Оценку 3 получили 6 Оценку 4 получили 6 Оценку 5 получили 5
Procedure swap(var a, b: real); var t: real; begin t := a; a := b; b := t; end;
var a, b, c: real; begin readln(a, b, c); if (a > b) then swap(a, b); if (b > c) then swap(b, c); if (a > b) then swap(a, b); writeln(a, ' ', b, ' ', c); end.
Без процедур:
var a, b, c, t: integer; begin readln(a, b, c); if (a > b) then begin t := a; a := b; b := t; end; if (b > c) then begin t := b; b := c; c := t; end; if (a > b) then begin t := a; a := b; b := t; end; writeln(a, ' ', b, ' ', c); end.
Искренне надеюсь, что Вы сможете перевести этот код к нужному виду..:) В принципе, расхождения должны быть только в вводе/выводе (где Console.Бла-бла-бла) и генерации случайных чисел)
Sub Main() Dim a(29), Sum, Col As Integer Dim Rnd = New Random() For i As Integer = 0 To 29 a(i) = Rnd.Next(-100, 100) Console.Write("{0} => {1}" + Environment.NewLine, i, a(i)) If (i > 0) Then If (a(i) Mod a(0)) Then Sum = Sum + a(i) Col = Col + 1 End If End If Next Console.WriteLine(Math.Round(Sum / Col, 2)) Console.ReadKey() End Sub
var rez:array[2..5] of integer;
i,a:integer;
begin
for i:=1 to n do begin
write(i,' ученик получил ');
readln(a);
inc(rez[a]);
end;
writeln;
for i:=2 to 5 do
writeln('Оценку ',i,' получили ',rez[i]);
end.
Тестовое решение:
1 ученик получил 3
2 ученик получил 4
3 ученик получил 3
4 ученик получил 5
5 ученик получил 2
6 ученик получил 2
7 ученик получил 3
8 ученик получил 4
9 ученик получил 5
10 ученик получил 4
11 ученик получил 2
12 ученик получил 3
13 ученик получил 3
14 ученик получил 4
15 ученик получил 5
16 ученик получил 5
17 ученик получил 3
18 ученик получил 5
19 ученик получил 4
20 ученик получил 4
Оценку 2 получили 3
Оценку 3 получили 6
Оценку 4 получили 6
Оценку 5 получили 5