Колобок находиться на линейке над буквой е, напиши программу, чтоб колобок писал слова мимоза,сказка,теремок. к о я с а з т е м р п и 4 5 6 7 8 9 10 11 12 13 14
Если под колобком вы подразумеваете программу, а все что после точки за ненужный нам набор цифр и символов, то тогда мой ответ удовлетворит ваши запросы.
var mas:array[0..9] of integer; i,max,min,k:integer; arifm:real; begin k:=0; arifm:=0; Randomize; for i:=0 to 9 do mas[i]:=Random(15); for i:=0 to 9 do write(mas[i],' '); {poisk max} max:=mas[0]; for i:=1 to 9 do if max<mas[i] then max:=mas[i]; {poisk min} min:=mas[0]; for i:=1 to 9 do if min>mas[i] then min:=mas[i]; arifm:=(max+min)/2; writeln('max: ',max); writeln('min: ',min); writeln('arifm: ',arifm:0:3); for i:=0 to 9 do if mas[i]<arifm then inc(k); writeln('k: ',k); readln; end.
1) Program asd; USES crt; Const n=10; Var A:array[1..n] of integer; i,kp,s:integer; BEGIN Writeln('Массив: '); For i:=1 to n do begin A[i]:=Random(20); Write(A[i]:4); end; Writeln; For i:=1 to n do begin If A[i] mod 3=0 then s:=s+1; end; Writeln('Сумма: ' ,s); END.
2) Program asd; USES crt; Const n=10; Var A:array[1..n] of integer; i,kp,s:integer; BEGIN Writeln('Массив: '); For i:=1 to n do begin A[i]:=Random(20)-10; Write(A[i]:4); end; Writeln; For i:=1 to n do begin If A[i]<0 then s:=s+1; end; If s=0 then Writeln('Нет отр. элементов!'); Writeln('Сумма отр. элементов: ' ,s); END.
Если под колобком вы подразумеваете программу, а все что после точки за ненужный нам набор цифр и символов, то тогда мой ответ удовлетворит ваши запросы.
C++
--text_delim--
#include <iostream>
void main(void) {
system("Title Kolobok");
std::wcout.imbue(std::locale(".866"));
std::wcout << L"Kolobok's say:\n МИМОЗА\n СКАЗКА\n ТЕРЕМОК" << std::endl;
system("Pause >nul");
}