Такую надо состовлять самому!А вот простой алгоритм для аких случаев по этой проге вроде-
program jfe3;
const n=10; {Это будет кол-во элементов массива}
var a:array [1..n] of integer; i,s:integer;
begin
for i:=1 to n do begin
a[i]:=random(100); {элемент выбирается случайно от 0 до 100}
s:=s+a[i]; {Когда эл. присвоился, его значение плюсуется к общ сумме}
end;
for i:=1 to n do
writeln(a[i],' '); {показать сам массив}
writeln(s); {показать сумму}
readln; {чтобы окно сразу не закрывалось} END.
1. var a, b :real;
begin readln(a, b); writeln(sqrt(a*a + b*b)); end.
2. var s1, s2, a1, a2 :real;
begin readln(s1, s2);
if s1 / 3.14159265 < s2 / 4 then writeln('yes') else writeln('no');
end.
3. var x, y :real;
begin readln(x);
if x < -10 then y:=234 - x*x*x else y:=x * x + 54;
writeln(y);
end.
#include <iostream>
#include <windows.h>
using namespace std;
int main()
{
int N;
int* arr;
cin>>N; //вводим размер массива
arr = new int[N];
for(int i=0;i<N;i++) cin>>arr[i]; //вводим сам массив
int NumOfFives = 0;
for(int i=0;i<N;i++)
{
if(arr[i]==5) NumOfFives++;
}
cout<<NumOfFives<<endl; //выводим сколько пятёрок
Sleep(5000); //ждём 5 секунд.
delete arr;
return 0;
}
/*
P.S Так на будующее: не алгоритм, а программу; C++ не программа, а язык; за такие задачи нужно побольше пунктов давать(мало кто знает C++(тут), а также задачи тут бывают полехче (куда уж легче? но бывают!) а пунктов ты даёшь минимум).
*/
#include <bits/stdc++.h>
using namespace std;
int a[10];
int main()
{
string s;
cin >> s;
for (int i = 0; i < s.length(); ++i)
a[s[i] - '0']++;
for (int i = 0; i < 10; ++i)
if (a[i])
{
cout << a[i];
return 0;
}
}