1. составить программу для нахождения произведения 5 элементов массива в паскале. 2. составить программу для нахождения суммы 5 элементов массива в паскале. нужно на завтра !
Var a:array[1..5] of integer; i,p:integer; begin p:=1; for i:=1 to 5 do begin a[i]:=random(-10,10); p*=a[i]; write(a[i], ' '); end; writeln(); writeln(p); end.
var a:array[1..5] of integer; i,s:integer; begin for i:=1 to 5 do begin a[i]:=random(-10,10); s+=a[i]; write(a[i], ' '); end; writeln(); writeln(s); end.
// PascalABC.NET 3.0, сборка 1111 const alpha=['a'..'z']; digits=['0'..'9']; var na,nd,i:integer; s:string; begin na:=0; nd:=0; Write('Введите текст: '); Readln(s); for i:=1 to Length(s) do if s[i] in alpha then Inc(na) else if s[i] in digits then Inc(nd); if na>nd then Writeln('В тексте больше букв') else if na<nd then Writeln('В тексте больше цифр') else Writeln('В тексте букв и цифр поровну') end.
Тестовое решение: Введите текст: the equation 3.546x^2+4.18x-4.1=0 В тексте больше букв
// PascalABC.NET 3.0, сборка 1111 const alpha=['a'..'z']; digits=['0'..'9']; var na,nd,i:integer; s:string; begin na:=0; nd:=0; Write('Введите текст: '); Readln(s); for i:=1 to Length(s) do if s[i] in alpha then Inc(na) else if s[i] in digits then Inc(nd); if na>nd then Writeln('В тексте больше букв') else if na<nd then Writeln('В тексте больше цифр') else Writeln('В тексте букв и цифр поровну') end.
Тестовое решение: Введите текст: the equation 3.546x^2+4.18x-4.1=0 В тексте больше букв
i,p:integer;
begin
p:=1;
for i:=1 to 5 do begin
a[i]:=random(-10,10);
p*=a[i];
write(a[i], ' ');
end;
writeln();
writeln(p);
end.
var a:array[1..5] of integer;
i,s:integer;
begin
for i:=1 to 5 do begin
a[i]:=random(-10,10);
s+=a[i];
write(a[i], ' ');
end;
writeln();
writeln(s);
end.