Программы и блок схемы к ним на скринах, надеюсь всё понятно
PS-------------------------------------------------------------------------------------------
Блок схемы сделаны по устаревшему ГОСТу, но имеют место быть,
Abs - это обозначение модуля в Pascal.
<em>// PascalABC.NET 3.2, сборка 1504 от 09.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(30,1,20); a.Println;
Writeln('Элементов, оканчивающихся цифрой 8- ',
a.Where(x->x mod 10=8).Count)
end.
<u>Пример</u>
1 3 20 17 2 5 3 14 18 1 13 3 8 9 5 19 19 3 19 20 2 12 20 13 7 5 10 9 1 20
Элементов, оканчивающихся цифрой 8- 2
Program next;
var a,b,c,i,g,o:integer;
begin
g:=0;
b:= 0;
writeln('Сколько учахщихся?');readln(a);
for i=0 to a do
writeln('Средний бал у ',i,' ученика:');readln(c);
g:= g+c;
end;
o:= g/a;
writeln('Средний балл учащихся',o);
readln;
end.
#include <iostream>
#include <algorithm>
using std::cin;
using std::cout;
using std::sort;
int arr[3];
void min(){
sort(arr, arr+3);
cout << arr[0];
}
int main()
{
for (int i = 0; i < 3; ++i)
{
cin >> arr[i];
}
min();
return 0;
}