В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Sonechka20052005
Sonechka20052005
03.11.2020 06:31 •  Информатика

Напишите программу, которая генерирует двовимирний массив 6x6 положительных действительно случайных чисел lazarus

Показать ответ
Ответ:
danikvorona
danikvorona
04.06.2020 07:13
1.
Числа можно вводить
int k,l; cout<<"->"; cin>>k>>l; if (k==l) { k=0; l=0; cout<<k<<" "<<l<<endl; }  else   {  l=k;  cout<<k<<" "<<l<<endl;  }
если хочешь без ввода удали cin и присвой значения

2.
int k,l,z; cout<<"->"; cin>>k>>l>>z;  if (k>0)  {  k*=k;  cout<<k<<endl;  }   if (l>0)  {  l*=l;  cout<<l<<endl;  }   if (z>0)  {  z*=z;  cout<<z<<endl;  }   if (k<0)  {  cout<<k<<endl;  }   if (l<0)  {  cout<<l<<endl;  }   if (z<0)  {    cout<<z<<endl;  }  
0,0(0 оценок)
Ответ:
EmilN304
EmilN304
04.06.2020 07:13

//з № 1var s,d,f,max:integer;beginRead(s,d,f);if (s > d)and (s > f) thenmax:= selse if (d > s) and (d > f)  thenmax:= delse if (f > d) and(f > s) then max:=f;write('max ',max);end.

//з № 2 var x:real; r:integer;beginwrite('Введите число x =');Read(x);if Frac(x)=0 then beginwriteln('x - целое число!');r:=round(x);if ((r mod 2)=0) then writeln('Число четное')else writeln('Число нечетное');endelse writeln('x - дробное число!')end.

//з № 3var a:integer;beginwrite('Введите число а =');Read(a);if (a > 0)and (a <= 5) thena:= a *a*aelse if (a > 5)  thena:= a*aelsea:=a;write('a = ',a);end.

Объяснение:

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота