1 - Определите значение переменной с после выполнения следующего фрагмента программы: а:=6 b:=13 a:=b-a*2 if a>b then c := a+b else c:=b-a 2 - Исправьте программу , чтобы она стала рабочей begin s:=0 k:=1 white k < 11 do s:=s+k k:=k+1 write end 3 - В программе описан одномерный целочисленный массив А с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются , а затем меняются . for i:=0 to 10 do A[i]:=2+i for i:=0 to 4 do begin A[i]:=A[10-i]-1 A[10-i]:=A[i]+3 end Чему будут равны элементы этого массива? 4 - Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –100 до 100 включительно. Напишите программу позволяющий найти и вывести минимальное значение среди положительных элементов массива кратных 5 . Если в исходном массиве нет элемента , значение которого положительно делится на 5 , то вывести сообщение "Не найдено".

Задача 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.

Pascal:
1)
const n = 10;
var a:array [1..n] of integer;
     i:integer;
begin
  randomize;
  for i:=1 to n do
   begin
    a[i]:=random(21)-10;
    write (a[i]:3);
   end;
  writeln;
  for i:=1 to n do
   begin
    if a[i]>0 then a[i]:=99;
    write (a[i]:3);
   end;
  writeln;
end.

2)
const n = 10;
var a:array [1..n] of integer;
     p,s,i:longint;
begin
  p:=1;
  s:=0;
  randomize;
  for i:=1 to n do
   begin
    a[i]:=random(21)-10;
    if a[i]>0 then p:=p*a[i] else
     if a[i]<0 then s:=s+a[i];
    write(a[i]:3);
   end;
  writeln;
  writeln ('Proizvedenie: ',p);
  writeln ('Summa: ',s);
end.

C++:
1)
#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;

int main()
{
  int a[10];
  srand (time(NULL));
  for (int i = 0; i<10; i++)
  {
    a[i] = rand()%20-10;
    cout <<a[i] <<" ";
    if (a[i]>0)
      a[i] = 99;
  }
  cout <<endl;
  for (int i = 0; i<10; i++)
    cout <<a[i] <<" ";
  cout <<endl;
  return 0;
}

2)
#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;

int main()
{
  int a[10];
  int p = 1,s = 0;
  srand (time(NULL));
  for (int i = 0; i<10; i++)
  {
    a[i] = rand()%20-10;
    cout <<a[i] <<" ";
    if (a[i]>0)
      p*=a[i];
    else if (a[i]<0) s+=a[i];
  }
  cout <<endl;
  cout <<"Summa: " <<s <<endl
         <<"Proizvedenie: " <<p <<endl;
  return 0;
}

Const n=?; {Кол-во элементов в массиве, написать число вместо "?"}
Var a,b:array[1..n] of integer;
x,k,i,j:integer;
Begin
 writeln('Init massive:');
 for i:=1 to n do
   begin
    readln(x); {а лучше написать read(x); и вводить числа через пробел одной строкой, красивее будет}
    a[i]:=x;
   end;
 k:=n div 2;
 if (n mod 2)<>0 then k:=k+1;
 j:=1;
 for i:=(k+1) to n do
   begin
    b[j]:=a[i];
    j:=j+1;
   end;
 if (n mod 2)<>0 then
   begin
    b[k]:=a[k];
    k:=k-1;
    j:=j+1;
   end;
 for i:=1 to k do
   begin
    b[j]:=a[i];
    j:=j+1;
   end;
 for i:=1 to n do write(b[i],' ');
End.