Con и prn - это обозначения стандартных устройств (консоль, т.е экран при выводе и принтер соответственно). Для записи информации в файл нужно ввести имя этого файла (например, primer.txt). В этом случае файл будет создан в той же папке (в том же каталоге, что и программа). Если файл нужен в какой-то другой папке, то нужно писать путь к ней, например, d:\users\1.txt
#include <iostream> #include <stdio.h> using namespace std;
int main(){ int y; cin>>y; y=y%12; switch (y){ case 4:{cout<<"Mouse"; break;} case 5:{cout<<"Bull";break;} case 6:{cout<<"Tiger";break;} case 7:{cout<<"Rabbit";break;} case 8:{cout<<"Dragon";break;} case 9:{cout<<"Snake";break;} case 10:{cout<<"Horse";break;} case 11:{cout<<"Goat";break;} case 0:{cout<<"Monkey";break;} case 1:{cout<<"Cock";break;} case 2:{cout<<"Dog";break;} case 3:{cout<<"Pig";break;} } cin.get(); cin.get(); return 0; }
Var ar:array[1..15] of integer; i,k1,k2:integer; r1,r2:real; begin randomize; writeln('Array:'); for i:=1 to 15 do begin ar[i]:=random(-20,20); write(ar[i]:4); if i mod 2=0 then begin inc(k1); r1:=r1+ar[i]; end; if ar[i]>0 then begin inc(k2); r2:=r2+k2; end; end; r1:=r1/k1; r2:=r2/k2; writeln; if r1>r2 then writeln('Среднее арифметическое элементов стоящих на четных местах'); if r1<r2 then writeln('Cреднее арифметическое положительных элементов массива'); if r1=r2 then writeln('Равно'); end.
