Нужно до 18:10 Известно, что в конце учеб- ного года отличники 5-8 и 10
классов освобождаются от эк-
заменов. Рамазан учится в 8
классе. Его оценки представле-
Задание: Определите будет
года в числе отличников, осво-
Экзамен
ны в виде таблицы (рис. 1).
ли Рамазан в конце учебного
божденных от экзаменов?
Идея выполнения задания:
В столбец «Анализ» ставим 1
в том случае, если оценка «5»,
в ином случае ставим 0. Если​

'VBScript

Sub Zadanie()
    ReDim C(5, 6)

    k_pos = 0
    mini = LBound(C, 1)
    minj = LBound(C, 2)
    For i = LBound(C, 1) To UBound(C, 1)
        For j = LBound(C, 2) To UBound(C, 2)
            C(i, j) = Round(Rnd * 10)

            if C(i, j) > 0 then k_pos = k_pos + 1

            if C(i, j) < C(mini, minj) then
                mini = i
                minj = j
            end if
        Next
    Next

    MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub

Call Zadanie()

 program summa;
 var a:= 0;
 var b:= 0;
 begin
  writeln('Введите число');
   readln(a);
   if a>0 then  
    repeat {повторяй}
      a:= a+b;
   writeln('Введите еще число');
   readln(b);  
   until (b<0); {до тех пор, пока условие не будет истинным}
     writeln('Было обнаружено отрицательное число');
        if a>0 then 
     writeln('Полученная сумма: ',a)
     else writeln('Отрицательное число было первым');
     readln;
 end.
Программа на выходе сообщает:
Введите число
3
Введите еще число
45
Введите еще число
9
Введите еще число
-8
Было обнаружено отрицательное число
Полученная сумма: 57