Const a=10; type mas=array[1..a] of integer; mas1=array[1..3] of byte; var R, Q, P:mas; X:mas1; i:byte;
procedure Form(var R, Q, P:mas); var sr, sq, sp:byte; begin sr:=0; sq:=0; sp:=0; for i:=1 to a do begin if (R[i]>=2) and (R[i]<=4) then sr:=sr+R[i]; if (Q[i]>=2) and (R[i]<=4) then sq:=sq+R[i]; if (P[i]>=2) and (R[i]<=4) then sp:=sp+R[i]; end; x[1]:=sr; x[2]:=sq; x[3]:=sp; writeln('Massiv x'); for i:=1 to 3 do write(x[i]:3);
end;
begin randomize; for i:=1 to a do begin R[i]:=random(10); Q[i]:=random(10); P[i]:=random(10); end; writeln('Massiv r'); for i:=1 to a do write(R[i]:3); writeln; writeln('Massiv Q'); for i:=1 to a do write(Q[i]:3); writeln; writeln('Massiv P'); for i:=1 to a do write(P[i]:3); end.
vikabobkova2010
12.05.2022
1. #include <iostream> //если не отображается, пиши после include - iostream в <> using namespace std;
int main(){ for(int i=0;i<10;i++) cout<<"Hello World"; cin.get(); cin.get(); return 0; } 11. #include <iostream> //если не отображается, пиши после include - iostream в <> #include <string> //если не отображается, пиши после include - string в <> using namespace std; int main() { string s,p; cin>>s; cin>>p; if((p!="v") && (p!="g")) return 66; int n; cin>>n; if (p=="g"){ for(int i=0;i<n;i++) cout<<s; } else { for(int i=0;i<n;i++) cout<<s<<"\n"; } cin.get(); cin.get(); return 0; }
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Обычно расширенные файла состоит из пяти латинских букв? да или нет
Объяснение:нет