Var n,s,i: integer; a: array[1..6] of integer; begin n:=6; s:=1; randomize; writeln('исходный массив из 6 элементов'); for i:=1 to n do begin a[i]:=random(10); write(a[i],' '); if a[i]>3 then s:=s*a[i]; end; writeln; writeln('произведение элем., больших 3 = ',s); readln; end.
Brain - первый компьютерный вирус для персонального компьютера под управлением операционной системы MS-DOS и первый вирус, вызвавший глобальную эпидемию в 1986 году.
Чернобыль - компьютерный вирус, написанный тайваньским студентом Чэнь Инхао в июне 1998 года.
Эпидемия вируса Melissa началась 26 марта 1999 г. Тогда это был вирус нового типа. Он распространялся по электронной почте в присоединенном файле, и после того как пользователь открывал этот файл, вирус рассылал себя по первым 50 адресам в адресной книги почтовой программы Microsoft Outlook.
var words_from_file = (string[]) Deserialize(fileName_); for (var i = 0; i < words_from_file.Length; i++) Console.WriteLine($"{i} = {words_from_file[i]}"); } catch(Exception e) { Console.WriteLine(e); } finally { Console.ReadLine(); } }
private static void Serialize(string file, object o) { using (var fs = new FileStream(file, FileMode.Create, FileAccess.Write, FileShare.ReadWrite)) { var bf = new BinaryFormatter(); bf.Serialize(fs, o); } }
private static object Deserialize(string file) { using (var fs = new FileStream(file, FileMode.Open, FileAccess.Read, FileShare.Read)) { var bf = new BinaryFormatter(); var o = bf.Deserialize(fs); return o; } } }
Сериализация в бинарный файл. В вашей программе действия записи и вывода происходят 2 раза, если это действительно надо повторить, то добавьте все в цикл и повторяйте сколько надо/хочется
a: array[1..6] of integer;
begin
n:=6; s:=1;
randomize;
writeln('исходный массив из 6 элементов');
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
if a[i]>3 then s:=s*a[i];
end;
writeln;
writeln('произведение элем., больших 3 = ',s);
readln;
end.