1.
const N = 10;
var a: array [1..N] of integer;
i, x: integer;
begin
write('Введите x: ');
readln(x);
for i := 1 to N do
begin
a[i] := x + i - 1;
write(a[i], ' ');
end;
end.
2.
const N = 10;
var a: array [1..N] of integer;
i: integer;
begin
a[1] := 1;
a[2] := 1;
for i := 3 to N do
begin
a[i] := a[i-1] + a[i-2];
end;
for i := 1 to N do
begin
write(a[i], ' ');
end;
end.
3.
const N = 6;
var a: array [1..N] of integer;
i, x: integer;
begin
a[N] := 1;
for i := N-1 downto 1 do
begin
a[i] := 2 * a[i+1];
end;
for i := 1 to N do
begin
write(a[i], ' ');
end;
end.
Объяснение:
Не знаю можно ли считать ноль, как "мінімальне додатнє", потому не включала
Объяснение:
#include<iostream>
using namespace std;
int main()
{
int l[15];
double min=0,max=0;
for(int i=0;i<15;i++)
{
cin>>l[i];
if(l[i]>0&&l[i]<min&&min!=0)
min=l[i];
if(min==0&&l[i]>0)
min=l[i];
if(l[i]<0&&l[i]>max&&max!=0)
max=l[i];
if(max==0&&l[i]<0)
max=l[i];
}
sort(l,l+15);
cout<<min<<" "<<max<<endl;
cout<<min/max<<endl;
for(int i=14;i>=0;i--)
cout<<l[i]<<" ";
return 0;
}
begin
var S := ReadlnString('Вводи сплошной строкой:').ToCharArray;
SetLength(S, 50);
Println('Приняты символы:');
S.Println('');
Println('Найдено z:', S.Count(c -> c = 'z'))
end.