<span>const N=30;
var
a: array [1..N] of integer;
i, j, min, min2, s: integer;
begin
for i:=1 to N do readln(a[i]);
for i:=1 to N do bein
for j:=1 to N do begin
if (a[min]-a[mim2] < a[i]-a[j]) then bein
min1 = i;
min2 = j;
end;
end;
end;
Если я конечно правильно задание понял)</span>
все просто написана программа верно,но для того чтобы она заработала нужно символы расставить а именно( ; )где ?? после writeln и readln
Кажется, будет слово: паркет.
Но я не уверена, на счет второй картинки
//Dev-C++ 5.11(С)
#include <stdio.h>
int main(void)
{int n,i,f;
float sr,ar[100];
scanf("\%d",&n);
i=0;
f=0;
while(i<n)
{scanf("\%d",&ar[i]);
sr=sr+ar[i];
i++;}
sr=sr/n;
i=0;
while(i<n)
{if(ar[i]<sr)f++;
i++;}
printf("\%d",f);
return 0;
}
Пример ввода:
5
1
2
3
4
5
Пример вывода:
2
1842₁₀ = 5241₇
1842/7= 263 ост. 1
263/7=37 ост. 4
37/7=5 ост. 2
5