Var a: array [1..10] of integer;
i, min: integer;
Begin
For i:=1 to 10 do
a[i]:=Random(21)-10;
writeln('Исходный массив:');
For i:=1 to 10 do
write(a[i],' ');
writeln;
min:=a[1];
For i:=2 to 10 do
if a[i]<min then
min:=a[i];
writeln('Минимальный элемент = ', min);
For i:=1 to 10 do
if a[i]<0 then
a[i]:=a[i]*min;
writeln('Преобразованный массив: ');
For i:=1 to 10 do
write (a[i], ' ');
writeln;
End.
Выполнение программы на рисунке.
Program z1;
var s:string;
var i,n,f:integer;
var ch:char;
begin
writeln('Введите строку');
readln(s);
f:=0;
n:=length(s);
ch:=s[n];
for i:=1 to n do
if(s[i]=ch) then
f:=f+1;
if(f<>0) then
writeln('yes')
else writeln('no');
end.
Форма представления информации
#include
using namespace std;
int main()
{
int []mas1=new int[9];
int []mas2=new int[9];
for(int i = 0; i<9;i++)
cin>>mas1[i];
for(int i = 0; i<9;i++)
{
cout<=0)
mas2[i]=mas1[i]*2;
else
mas2[i]=0;
}
for(int i=0;i<9;i++)
{
cout<