Надо нажать на ок и стоп одновременно и держать пока не заработает.
Var a,i,b:integer;
s:real;
begin
a:=0;
for i:=1 to 10 do begin
b:=random(20)+1;
a+=b;
write(b,' ');
end;
writeln;
s:=a/10;
writeln(s);
<span>end.</span>
Вот наполнение массива рандомом. Если нужно наполнение с клавиатуры, то вместо a[i,j]:=random(100)-50; необходимо поставить read(a[i,j]);
const n=3; m=4;
var a:array[1..n,1..m] of integer;
var i, j, count:integer;
begin
count:=0;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(100)-50;
write(a[i,j]:3, ' ');
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do begin
if (a[i,j]<0) and (a[i,j] mod 2 <>0) then count:=count+1;
end;
writeln('Количество отрицательных нечетных элементов: ', count);
<span>end.
</span>
#include <iostream>
#include <string>
using namespace std;
bool isb(char t)
{
bool f=false;
string dic="abcdefghijklmnopqrstuvwxyz1234567890";
for(int i=0;i<dic.size();i++)
if(dic[i]==t)
return !f;
return f;
}
int main()
{
string s;
int i=0;
getline(cin,s);
while(i<s.size())
{
if(isb(s[i]))
{
s.insert(i,1,s[i]);
i++;
}
i++;
}
cout<<s<<endl;
return 0;
}
4 и 1 по моему потому что схема это информационная модель и график это линия