Задача 1: 1
Задача 2:
begin
s:=0; k:=1;
while k < 11 do begin
s:=s+k; k:=k+1;
end;
write(s);
end.
Задача 3:
11 10 9 8 7 7 10 11 12 13 14
Задача 4:
const N = 20;
const MAX = 100;
const MIN = -100;
var A: array [1..N] of integer;
var i,s: integer;
begin
randomize();
s:=-1;
writeln('Исходный массив: ');
for i:=1 to N do
begin
A[i]:=random(MAX-MIN+1)+MIN;
if (A[i]>0) and (A[i] mod 5 = 0) then
begin
if (s=-1) then s:=A[i]
else if (A[i]<s) then s:=A[i];
end;
write(A[i],' ');
end;
writeln();
if (s<>-1) then writeln('Минимальное значение среди положительных',
' элементов массива кратных 5: ',s)
else writeln('Не найдено');
end.
#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;
const int size = 10;
int main()
{
srand (time(0));
int a[size];
int k1 = 0,k2 = 0;
for (int i=0; i<size; i++)
{
a[i]=rand()%20-10;
cout <<a[i] <' ';
k1+=(a[i]>0 && a[i]%2) ? a[i]:0;
k2+=(a[i]<0 && !(a[i]%2)) ? 1:0;
}
cout <<k1 <<end <<k2 <<endl;
return 0;
}
2)
#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;
const int size = 10;
int main()
{
srand (time(0));
int a[size];
int k1 = 0,k2 = 0;
for (int i=0; i<size; i++)
{
a[i]=rand()%20-10;
cout <<a[i] <' ';
k1+=(a[i]<0 && !(i%2)) ? 1:0;
k2+=(a[i]>0 && !(a[i]%2) && i%2) ? a[i]:0;
}
cout <<k2 <<end <<k2 <<endl;
return 0;
}