Выбирает ))) А что, где и как - это зависит от той программы, которую ты имеешь в виду и тщательно скрываешь от нас.
Var a: array[1..10] of integer;
<span> b: array[1..10] of real;
</span><span> i,n: integer;
</span><span> s: real;
</span><span>begin
</span><span> s:=0; n:=0;
</span><span> write('массив a: ');
</span><span> for i:=1 to 10 do
</span><span> begin
</span><span> read(a[i]);
</span><span> if a[i]<0 then
</span><span> begin
</span><span> s:=s+a[i];
</span><span> n:=n+1;
</span><span> end;
</span><span> write(a[i],' ');
</span><span> end;
</span><span> s:=s/n;
</span><span> writeln;
</span><span> writeln('среднее арифметическое отрицательных: ',s);
</span><span> writeln('количество отрицательных: ',n);
</span><span> write('массив b: ');
</span><span> for i:=1 to 10 do
</span><span> begin
</span><span> if a[i]<0 then b[i]:=s
</span><span> else b[i]:=a[i];
</span><span> write(b[i]:7:3);
</span><span> end;
</span><span>end.
</span>массив a: 2 2 -3 1 -5 -6 -5 9 -7 5
<span>среднее арифметическое отрицательных: -5.2
</span><span>количество отрицательных: 5
</span><span>массив b: 2.000 2.000 -5.200 1.000 -5.200 -5.200 -5.200 9.000 -5.200</span><span> 5.000
</span><span>
</span>
Var i, k: integer;
var arr: array[0..19] of integer;
begin
for i := 0 to 19 do
read(arr[i]);
for i := 0 to 19 do
if arr[i] mod 10 = 4 then
k := k + 1;
writeln(k);
end.
Var x: byte;
Begin
Write(‘ введите число от 1 до 7')
Readln(x);
Case x of
1: writeln(‘понедельник’);
2: writeln(‘вторник’);
3: writeln(‘среда’);
4: writeln(‘четверг’);
5: writeln(‘пятница’);
6: writeln(‘суббота’);
7: writeln(‘воскресенье’);
end;
Readln
End.
я не помню как чтоб выдало ошибку ..пили если больше х то ошибка
#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;
}
}