1, 5 мбайта= в байты 4096 бит= в кбайты

1,5 мбайта = 1572864 байта 4096 бит = 4 кбит = 0,5 кбайт

1,  5 мбайт = 1500000  байт 4096 бит  =  0,5 кбайт

Var  a: array[1..18] of integer;   i,n,n2,max: integer; begin  for i: =1 to 18 do begin  case i of  1..6: begin write('введите ',i,'-ую оценку по обязательной программе '); readln(a[i]); n: =n+a[i]; if i=6 then begin max: =n; n: =0; n2: =1; end; end;   7..12: begin write('введите ',i-6,'-ую оценку по короткой программе '); readln(a[i]); n: =n+a[i]; if i=12 then begin if n> max then begin max: =n; n2: =2; end; n: =0; end; end;   13..18: begin write('введите ',i-12,'-ую оценку по произвольной программе '); readln(a[i]); n: =n+a[i]; if i=18 then begin if n> max then begin max: =n; n2: =3; end; n: =0; end; end;   end;   end;   case n2 of  1: write('лучшая оценка по обязательной программе = ',max);   2: write('лучшая оценка по короткой программе = ',max);   3: write('лучшая оценка по произвольной программе = ',max);   end; end.

#include "iostream" #include "math.h" using namespace std; int main() { float s, a[30], day=0; //объявление переменных cin> > s;                     //ввод s for(int  i=0; i< 30; i++) //заполнение массива случайными числами {   a[i]=rand(); } for(int  i=0; i< 30; i++)//подсчет количества дней  {   if(a[i]> s)     {       day++;     } } cout< < "kolichestvo dney:   "< < day< < endl; // вывод количества дней system("pause"); return 0; }